home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / xgrasp.zip / EXEC.C < prev    next >
C/C++ Source or Header  |  1991-07-24  |  64KB  |  3,450 lines
  1. #ident "@(#)exec.c    1.17 91/04/05 XGRASP"
  2. /*-
  3.  * exec.c - grasp language execution routines.
  4.  *
  5.  * Copyright (c) 1991 by Patrick J. Naughton
  6.  *
  7.  * Permission to use, copy, modify, and distribute this software and its
  8.  * documentation for any purpose and without fee is hereby granted,
  9.  * provided that the above copyright notice appear in all copies and that
  10.  * both that copyright notice and this permission notice appear in
  11.  * supporting documentation.
  12.  *
  13.  * This file is provided AS IS with no warranties of any kind. The author
  14.  * shall have no liability with respect to the infringement of copyrights,
  15.  * trade secrets or any patents by this file or any part thereof. In no
  16.  * event will the author be liable for any lost revenue or profits or
  17.  * other special, indirect and consequential damages.
  18.  *
  19.  * Comments and additions should be sent to the author:
  20.  *
  21.  * Patrick J. Naughton
  22.  * Sun Microsystems
  23.  * 2550 Garcia Ave, MS 10-20
  24.  * Mountain View, CA 94043
  25.  * (415) 336-1080
  26.  *
  27.  */
  28.  
  29. #include <sys/time.h>
  30. #include <math.h>
  31. #include "grasp.h"
  32. #include <X11/Xatom.h>
  33.  
  34. #define ESCAPE    -3
  35. #define DONE    -2
  36. #define CONT    -1
  37.  
  38. #define intarg(ex,index) (ex)->Code[(index)].val.i
  39. #define strarg(ex,index) (ex)->Code[(index)].val.s
  40. #define imgarg(ex,index) (ex)->Code[(index)].val.image
  41. #define fntarg(ex,index) (ex)->Code[(index)].val.font
  42. #define excarg(ex,index) (ex)->Code[(index)].val.exec
  43.  
  44. Colormap    EGAcmap = (Colormap) 0;
  45.  
  46. XRectangle  window = {
  47.     0, 0, 0, 0
  48. };
  49.  
  50. typedef struct {
  51.     int         count;
  52.     int         ipaddr;
  53. }           stackent;
  54. #define STACKSIZE 16
  55.  
  56. stackent    loopstack[STACKSIZE];
  57. int         loopstackptr = 0;
  58.  
  59. int         ipstack[STACKSIZE];
  60. int         ipstackptr = 0;
  61.  
  62. ImageStruct *picreg[16];
  63. ImageStruct *clipreg[128];
  64. FontStruct *fontreg[16];
  65. FontStruct *currentfont = 0;
  66. int         fstyle = 0;
  67. int         chargap = 1;
  68. int         spacegap = -1;
  69. int         currentcolor = 1;
  70. int         currentbgcolor = 0;
  71. Colormap    installedcmap;
  72. int         palettenum = 0;
  73. int         tranval = -1;
  74. int         keypressed = -1;
  75. int         videomode;
  76.  
  77.  
  78. long
  79. hundredthsofseconds()
  80. {
  81.     struct timeval now;
  82.  
  83.     gettimeofday(&now, (struct timezone *) 0);
  84.     return now.tv_sec * 100 + now.tv_usec / 10000;
  85. }
  86.  
  87. void
  88. ExitEvent(ev)
  89.     XClientMessageEvent *ev;
  90. {
  91.     if (ev->message_type == protocol_atom &&
  92.         ev->data.l[0] == kill_atom)
  93.     exit(0);
  94. }
  95.  
  96. void
  97. exitcheck()
  98. {
  99.     while (XPending(dsp)) {
  100.     XEvent      ev;
  101.     XNextEvent(dsp, &ev);
  102.     switch (ev.type) {
  103.     case ClientMessage:
  104.         ExitEvent(&ev);
  105.         break;
  106.     }
  107.     }
  108. }
  109.  
  110. /*
  111.  * delay sleeps for 'd'/100'ths of a second
  112.  * usleep() will have to be provided on non-sun platforms.
  113.  */
  114. void
  115. delay(d)
  116.     int         d;
  117. {
  118.     int         endtime = hundredthsofseconds() + d;
  119.     while (1) {
  120.     exitcheck();
  121.     usleep(10000);    /* sleep for 1/100th of a second */
  122.     if (hundredthsofseconds() > endtime)
  123.         return;
  124.     }
  125. }
  126.  
  127.  
  128. /*
  129.  * if ip is pointing at a wildcard '*' then resolvewild returns a pointer
  130.  * to the object which is referenced by the current data pointer.
  131.  * otherwise it checks the type of the ip to make sure it matches what
  132.  * the caller expected, plus a little hack for zero's mistyped as oh's.
  133.  */
  134. void       *
  135. resolvewild(ex, ip, type)
  136.     ExecStruct *ex;
  137.     int         ip;
  138.     int         type;
  139. {
  140.     int         i;
  141.  
  142.     if (ex->Code[ip].token == WILDTYPE) {
  143.     if (ex->currentdataptr == -1)
  144.         error("%s: resolvewild no data\n");
  145.     i = ex->currentdataptr++;
  146.     } else {
  147.     i = ip;
  148.     if (ex->Code[i].token != type) {
  149.         /* hack for mistyped zero's as Oh's */
  150.         if (ex->Code[i].token == STRING && ex->Code[i].val.s[0] == 'o') {
  151.         ex->Code[i].token = INTEGER;
  152.         ex->Code[i].val.i = 0;
  153.         } else
  154.         error("%s: resolvewild type mismatch.\n");
  155.     }
  156.     }
  157.  
  158.     switch (type) {
  159.     case STRING:
  160.     return (void *) ex->Code[i].val.s;
  161.     break;
  162.     case INTEGER:
  163.     return (void *) ex->Code[i].val.i;
  164.     break;
  165.     case IMAGE:
  166.     if (ex->Code[i].token == STRING)
  167.         stringtoimage(i, EXT_CLP);
  168.     return (void *) ex->Code[i].val.image;
  169.     break;
  170.     case FONTTYPE:
  171.     if (ex->Code[i].token == STRING)
  172.         stringtofont(i);
  173.     return (void *) ex->Code[i].val.font;
  174.     break;
  175.     default:
  176.     error("%s: resolvewild type failure\n");
  177.     }
  178. }
  179.  
  180. /*
  181.  * installs the colormap associated with the image argument.
  182.  */
  183. void
  184. installcmap(i)
  185. {
  186.     ImageStruct *im;
  187.  
  188.     palettenum = i;
  189.     im = picreg[i];
  190.     if (im) {
  191.     installedcmap = im->cmap;
  192.     XSetWindowColormap(dsp, win, im->cmap);
  193.     } else {
  194.     printf("no image at %d for colormap setting\n", i);
  195.     installedcmap = (Colormap) 0;
  196.     }
  197. }
  198.  
  199. void
  200. setvideomode(c)
  201.     char        c;
  202. {
  203.     int         w, h;
  204.  
  205.     if (c >= 'A' && c <= 'Z')
  206.     c += 'a' - 'A';
  207.  
  208.     if (EGAcmap == (Colormap) 0)
  209.     EGAcmap = CreateEGAcmap();
  210.  
  211.     videomode = c;
  212.     switch (c) {
  213.     case '1':    /* 80x25 text 16 color */
  214.     w = 80 * 8;
  215.     h = 25 * 13 + 4;
  216.     installedcmap = (Colormap) 0;
  217.     palettenum = 0;
  218.     XSetWindowColormap(dsp, win, EGAcmap);
  219.     break;
  220.     case 'a':    /* 320x200 4 color */
  221.     w = 320;
  222.     h = 200;
  223.     break;
  224.     case 'c':    /* 640x200 2 color */
  225.     w = 640;
  226.     h = 200;
  227.     break;
  228.     case 'e':    /* 640x350 2 color */
  229.     w = 640;
  230.     h = 350;
  231.     break;
  232.     case 'g':    /* 640x350 16 colors */
  233.     w = 640;
  234.     h = 350;
  235.     break;
  236.     case 'h':    /* 720x384 2 colors */
  237.     w = 720;
  238.     h = 384;
  239.     break;
  240.     case 'i':    /* 640x350 16 colors */
  241.     w = 640;
  242.     h = 350;
  243.     break;
  244.     case 'j':    /* 640x480 16 colors */
  245.     w = 640;
  246.     h = 480;
  247.     break;
  248.     case 'k':    /* 640x350 16 colors */
  249.     w = 640;
  250.     h = 350;
  251.     break;
  252.     default:
  253.     case 'l':    /* 320x200 256 color */
  254.     w = 320;
  255.     h = 200;
  256.     break;
  257.     case 'm':    /* 640x480 256 color */
  258.     w = 640;
  259.     h = 480;
  260.     break;
  261.     case 'n':    /* 720x348 16 color */
  262.     w = 720;
  263.     h = 348;
  264.     break;
  265.     case 'o':    /* 640x480 2 color */
  266.     w = 640;
  267.     h = 480;
  268.     break;
  269.     case 'p':    /* 800x600 2 color */
  270.     w = 800;
  271.     h = 600;
  272.     break;
  273.     case 'q':    /* 800x600 16 color */
  274.     w = 800;
  275.     h = 600;
  276.     break;
  277.     case 'r':    /* 800x600 256 color */
  278.     w = 640;
  279.     h = 350;
  280.     break;
  281.     case 's':    /* 800x600 256 color */
  282.     w = 640;
  283.     h = 480;
  284.     break;
  285.     case 't':    /* 800x600 256 color */
  286.     w = 800;
  287.     h = 600;
  288.     break;
  289.     case 'w':    /* 360x480 256 color */
  290.     w = 360;
  291.     h = 480;
  292.     break;
  293.     }
  294.  
  295.     if (picreg[0] == 0 || picreg[0]->w != w || picreg[0]->h != h) {
  296.     if (picreg[0] != 0) {
  297.         XFreePixmap(dsp, picreg[0]->pix);
  298.         if (picreg[0]->cmap)
  299.         XFreeColormap(dsp, picreg[0]->cmap);
  300.         free(picreg[0]);
  301.     }
  302.     picreg[0] = (ImageStruct *) malloc(sizeof(ImageStruct));
  303.     picreg[0]->name = "background";
  304.     picreg[0]->type = EXT_PIC;
  305.     picreg[0]->w = w;
  306.     picreg[0]->h = h;
  307.     picreg[0]->d = 8;
  308.     picreg[0]->xoff = 0;
  309.     picreg[0]->yoff = 0;
  310.     picreg[0]->pix = XCreatePixmap(dsp, win, w, h, 8);
  311.     XSetForeground(dsp, gc, 0);
  312.     XFillRectangle(dsp, picreg[0]->pix, gc, 0, 0, w, h);
  313.     picreg[0]->cmap = (Colormap) 0;
  314.     picreg[0]->cmaplen = 0;
  315.  
  316.     XResizeWindow(dsp, win, w, h);
  317.     while (1) {
  318.         XEvent      ev;
  319.         XNextEvent(dsp, &ev);
  320.         if (ev.type == ConfigureNotify)
  321.         break;
  322.     }
  323.     }
  324.     window.x = window.y = 0;
  325.     window.width = w;
  326.     window.height = h;
  327.  
  328.     XSetClipMask(dsp, gc, None);
  329.     XCopyArea(dsp, picreg[0]->pix, win, gc,
  330.           0, 0,
  331.           picreg[0]->w,
  332.           picreg[0]->h,
  333.           0, 0);
  334.     XMapWindow(dsp, win);
  335.  
  336.     XSync(dsp, False);
  337. }
  338.  
  339. int
  340. unimplemented(ex, ip)
  341.     ExecStruct *ex;
  342.     int         ip;
  343. {
  344.     printf("%s: ", tokens[ex->Code[ip - 1].token]);
  345.     printf("unimplemented operator.\n");
  346.     return CONT;
  347. }
  348.  
  349. #define defrect(r, X, Y, W, H) \
  350.     (r).x = X, (r).y = Y, (r).width = W, (r).height = H
  351.  
  352. void
  353. drawWideRect(dpy, win, gc, x, y, w, h, thick)
  354.     Display    *dpy;
  355.     Window      win;
  356.     GC          gc;
  357.     int         x, y, w, h;
  358.     int         thick;
  359. {
  360.     XRectangle  rects[4];
  361.     int         nrects, doublethick;
  362.  
  363.     if (w == 0 && h == 0)
  364.     return;
  365.  
  366.     doublethick = 2 * thick;
  367.  
  368.     /*
  369.      * if too small for box just draw one solid rect
  370.      */
  371.     if (w <= doublethick || h <= doublethick) {
  372.     defrect(rects[0], x, y, w, h);
  373.     nrects = 1;
  374.     /* else draw all 4 rects for the box */
  375.     } else {
  376.     defrect(rects[0], x, y, w, thick);
  377.     defrect(rects[1], x, y + h - thick, w, thick);
  378.     defrect(rects[2], x, y + thick, thick, h - doublethick);
  379.     defrect(rects[3], x + w - thick, y + thick, thick, h - doublethick);
  380.     nrects = 4;
  381.     }
  382.     XFillRectangles(dpy, win, gc, rects, nrects);
  383. }
  384.  
  385.  
  386.  
  387.  
  388. /*-
  389.  * BOX x1 y1 x2 y2 [thickness]
  390.  * draws a hollow rectangle in the current color as thick as specified.
  391.  */
  392.  
  393. int
  394. f_box(ex, ip, nargs)
  395.     ExecStruct *ex;
  396.     int         ip;
  397.     int         nargs;
  398. {
  399.     int         x1;
  400.     int         y1;
  401.     int         x2;
  402.     int         y2;
  403.     int         th;
  404.  
  405.     switch (nargs) {
  406.     case 5:
  407.     th = intarg(ex, ip + 4);
  408.     break;
  409.     case 4:
  410.     th = 1;
  411.     break;
  412.     default:
  413.     error("%s: argcount mismatch\n");
  414.     break;
  415.     }
  416.  
  417.     x1 = intarg(ex, ip);
  418.     y1 = intarg(ex, ip + 1);
  419.     x2 = intarg(ex, ip + 2);
  420.     y2 = intarg(ex, ip + 3);
  421.  
  422.     XSetForeground(dsp, gc, currentcolor);
  423.     drawWideRect(dsp, win, gc, x1, YFLIP(y2), x2 - x1, y2 - y1, th);
  424.     return CONT;
  425. }
  426.  
  427. /*-
  428.  * BREAK label
  429.  * break out of a loop.
  430.  */
  431. int
  432. f_break(ex, ip, nargs)
  433.     ExecStruct *ex;
  434.     int         ip;
  435.     int         nargs;
  436. {
  437. #ifdef UNIMPLEMENTED
  438.     switch (nargs) {
  439.     case 1:
  440.     break;
  441.     default:
  442.     error("%s: argcount mismatch\n");
  443.     break;
  444.     }
  445. #endif
  446.  
  447.     return unimplemented(ex, ip);
  448. }
  449.  
  450.  
  451. /*-
  452.  * CALL file [label]
  453.  */
  454. int
  455. f_call(ex, ip, nargs)
  456.     ExecStruct *ex;
  457.     int         ip;
  458.     int         nargs;
  459. {
  460.     void        execfile();
  461.     int         label;
  462.  
  463.     switch (nargs) {
  464.     case 2:
  465.     label = intarg(ex, ip + 1);
  466.     break;
  467.     case 1:
  468.     label = 0;
  469.     break;
  470.     default:
  471.     error("%s: argcount mismatch\n");
  472.     break;
  473.     }
  474.  
  475.     execfile(excarg(ex, ip), label);
  476.     return CONT;
  477. }
  478.  
  479. /*-
  480.  * CFADE fadenumber x y [buffernumber] [speed] [delay]
  481.  * fade the given buffer using the given fade number at x,y.
  482.  */
  483. int
  484. f_cfade(ex, ip, nargs)
  485.     ExecStruct *ex;
  486.     int         ip;
  487.     int         nargs;
  488. {
  489.     int         fadestyle;
  490.     int         x;
  491.     int         y;
  492.     int         buf = 1;
  493.     int         speed = 0;
  494.     int         d = 10;
  495.     ImageStruct *im;
  496.  
  497.     switch (nargs) {
  498.     case 6:
  499.     d         = intarg(ex, ip + 5);
  500.     case 5:
  501.     speed     = intarg(ex, ip + 4);
  502.     case 4:
  503.     buf       = intarg(ex, ip + 3);
  504.     case 3:
  505.     y         = intarg(ex, ip + 2);
  506.     x         = intarg(ex, ip + 1);
  507.     fadestyle = intarg(ex, ip);
  508.     break;
  509.     default:
  510.     error("%s: argcount mismatch\n");
  511.     break;
  512.     }
  513.  
  514.     im = clipreg[buf];
  515.     imagefade(fadestyle, clipreg[buf], 
  516.         x + im->xoff, YFLIPIM(y, im) + im->yoff, speed, 0);
  517.  
  518.     delay(d);
  519.     return CONT;
  520. }
  521.  
  522. /*-
  523.  * CFREE buffer [buffer] ...
  524.  * unload a clipping
  525.  */
  526. int
  527. f_cfree(ex, ip, nargs)
  528.     ExecStruct *ex;
  529.     int         ip;
  530.     int         nargs;
  531. {
  532. #ifdef UNIMPLEMENTED
  533.     switch (nargs) {
  534.     case 0:
  535.     error("%s: argcount mismatch\n");
  536.     break;
  537.     default:
  538.     break;
  539.     }
  540. #endif
  541.  
  542.     /* NOP */
  543.     return CONT;
  544. }
  545.  
  546. /*-
  547.  * CGETBUF n [x1 y1 x2 y2] [noshift] [tran]
  548.  * copy an area of the screen into a clip buffer
  549.  */
  550. int
  551. f_cgetbuf(ex, ip, nargs)
  552.     ExecStruct *ex;
  553.     int         ip;
  554.     int         nargs;
  555. {
  556.     int         clip;
  557.     int         x1;
  558.     int         y1;
  559.     int         x2;
  560.     int         y2;
  561.     ImageStruct *im;
  562.     XImage     *xim;
  563.  
  564.     switch (nargs){
  565.     case 7:
  566.     case 6:
  567.     case 5:
  568.     y2 = intarg(ex, ip + 4);
  569.     x2 = intarg(ex, ip + 3);
  570.     y1 = intarg(ex, ip + 2);
  571.     x1 = intarg(ex, ip + 1);
  572.     case 1:
  573.     clip = intarg(ex, ip);
  574.     break;
  575.     default:
  576.     error("%s: argcount mismatch\n");
  577.     break;
  578.     }
  579.  
  580.     im = (ImageStruct *) malloc(sizeof(ImageStruct));
  581.     im->name = "getbuf";
  582.     im->w = x2 - x1;
  583.     im->h = y2 - y1;
  584.     im->d = 8;
  585.     im->cmap = (Colormap) 0;
  586.     im->cmaplen = 0;
  587.     im->pix = XCreatePixmap(dsp, win, im->w, im->h, 8);
  588.     xim = XGetImage(dsp, win, x1, y1, im->w, im->h, 0xff, ZPixmap);
  589.     XPutImage(dsp, im->pix, gc, xim, 0, 0, 0, 0, im->w, im->h);
  590.     clipreg[clip] = im;
  591.     free(xim->data);
  592.     free(xim);
  593.     return CONT;
  594. }
  595.  
  596. /*-
  597.  * CHGCOLOR slot val [slot val] ...
  598.  * change palette colors in EGA mode.
  599.  */
  600. int
  601. f_chgcolor(ex, ip, nargs)
  602.     ExecStruct *ex;
  603.     int         ip;
  604.     int         nargs;
  605. {
  606.     int         i;
  607.     u_long      pmasks;
  608.     u_long      pixels[16];
  609.     ImageStruct *im = picreg[0];
  610.  
  611.     switch (nargs) {
  612.     case 0:
  613.     error("%s: argcount mismatch\n");
  614.     break;
  615.     default:
  616.     switch (nargs % 2) {
  617.     case 1:
  618.         error("%s: argcount mismatch\n");
  619.         break;
  620.     default:
  621.         break;
  622.     }
  623.     break;
  624.     }
  625.  
  626.     im->cmaplen = 16;    /* EGA hard-coded value */
  627.     if (!im->cmap) {
  628.     im->cmap = XCreateColormap(dsp, win, vis, AllocNone);
  629.     XAllocColorCells(dsp, im->cmap, True, &pmasks, 0, pixels, im->cmaplen);
  630.     }
  631.  
  632.     for (i = 0; i < nargs; i += 2) {
  633.     int         slot = intarg(ex, ip + i);
  634.     int         pal = intarg(ex, ip + i + 1);
  635.     im->colors[slot].pixel = slot;
  636.     im->colors[slot].red = decodepal(pal, 0x20, 0x04) << 8;
  637.     im->colors[slot].green = decodepal(pal, 0x10, 0x02) << 8;
  638.     im->colors[slot].blue = decodepal(pal, 0x08, 0x01) << 8;
  639.     im->colors[slot].flags = DoRed | DoGreen | DoBlue;
  640.     XStoreColor(dsp, im->cmap, &(im->colors[slot]));
  641.     }
  642.     installcmap(0);
  643.     return CONT;
  644. }
  645.  
  646. /*-
  647.  * CIRCLE x y xr [yr] [iris]
  648.  * draw an ellipse
  649.  */
  650. int
  651. f_circle(ex, ip, nargs)
  652.     ExecStruct *ex;
  653.     int         ip;
  654.     int         nargs;
  655. {
  656. #ifdef UNIMPLEMENTED
  657.     switch (nargs) {
  658.     case 5:
  659.     case 4:
  660.     case 3:
  661.     break;
  662.     default:
  663.     error("%s: argcount mismatch\n");
  664.     break;
  665.     }
  666. #endif
  667.  
  668.     return unimplemented(ex, ip);
  669. }
  670.  
  671. /*-
  672.  * CLEARSCR
  673.  * paint entire screen
  674.  */
  675. int
  676. f_clearscr(ex, ip, nargs)
  677.     ExecStruct *ex;
  678.     int         ip;
  679.     int         nargs;
  680. {
  681.  
  682.     switch (nargs) {
  683.     case 0:
  684.     break;
  685.     default:
  686.     error("%s: argcount mismatch\n");
  687.     break;
  688.     }
  689.  
  690.     if (picreg[0] == 0)
  691.     setvideomode('l');
  692.     XSetForeground(dsp, gc, currentcolor);
  693.     XFillRectangle(dsp, picreg[0]->pix, gc,
  694.            0, 0, picreg[0]->w, picreg[0]->h);
  695.     XCopyArea(dsp, picreg[0]->pix, win, gc,
  696.           0, 0, picreg[0]->w, picreg[0]->h, 0, 0);
  697.     return CONT;
  698. }
  699.  
  700. /*-
  701.  * CLOAD name [buffer] [noshift] [tran]
  702.  * load a clipping
  703.  */
  704. int
  705. f_cload(ex, ip, nargs)
  706.     ExecStruct *ex;
  707.     int         ip;
  708.     int         nargs;
  709. {
  710.     int         clip;
  711.  
  712.     switch (nargs) {
  713.     case 4:
  714.     case 3:
  715.     case 2:
  716.     clip = (int) resolvewild(ex, ip + 1, INTEGER);
  717.     break;
  718.     case 1:
  719.     clip = 0;
  720.     break;
  721.     default:
  722.     error("%s: argcount mismatch\n");
  723.     break;
  724.     }
  725.  
  726.     clipreg[clip] = (ImageStruct *) resolvewild(ex, ip, IMAGE);
  727.     return CONT;
  728. }
  729.  
  730. /*-
  731.  * CLOSEGL
  732.  * close a library file
  733.  */
  734. int
  735. f_closegl(ex, ip, nargs)
  736.     ExecStruct *ex;
  737.     int         ip;
  738.     int         nargs;
  739. {
  740. #ifdef UNIMPLEMENTED
  741.     switch (nargs) {
  742.     case 0:
  743.     break;
  744.     default:
  745.     error("%s: argcount mismatch\n");
  746.     break;
  747.     }
  748. #endif
  749.  
  750.     return unimplemented(ex, ip);
  751. }
  752.  
  753. /*-
  754.  * COLOR color1 [R] [color2]
  755.  * set the drawing color, (not sure what the R is...)
  756.  */
  757. int
  758. f_color(ex, ip, nargs)
  759.     ExecStruct *ex;
  760.     int         ip;
  761.     int         nargs;
  762. {
  763.  
  764.     switch (nargs) {
  765.     case 2:
  766.     currentbgcolor = intarg(ex, ip + 1);
  767.     case 1:
  768.     currentcolor = intarg(ex, ip);
  769.     break;
  770.     default:
  771.     error("%s: argcount mismatch\n");
  772.     break;
  773.     }
  774.  
  775.     return CONT;
  776. }
  777.  
  778. /*-
  779.  * CYCLE cycles start number [time]
  780.  * rotate palette colors.
  781.  */
  782. int
  783. f_cycle(ex, ip, nargs)
  784.     ExecStruct *ex;
  785.     int         ip;
  786.     int         nargs;
  787. {
  788.     int         cycles;
  789.     int         start;
  790.     int         number;
  791.     int         d = 0;
  792.     int         i;
  793.     int         j;
  794.     int         end = start + number - 1;
  795.     XColor     *c = picreg[palettenum]->colors;
  796.     unsigned long buffer;
  797.  
  798.     switch (nargs) {
  799.     case 4:
  800.     d = intarg(ex, ip + 3);
  801.     case 3:
  802.     number = intarg(ex, ip + 2);
  803.     start  = intarg(ex, ip + 1);
  804.     cycles = intarg(ex, ip);
  805.     break;
  806.     default:
  807.     error("%s: argcount mismatch\n");
  808.     break;
  809.     }
  810.  
  811.     for (i = 0; i < cycles; i++) {
  812.     buffer = c[start].pixel;
  813.     for (j = start; j < end; j++)
  814.         c[j].pixel = c[j + 1].pixel;
  815.     c[end].pixel = buffer;
  816.     XStoreColors(dsp, installedcmap, &c[start], number);
  817.     XSync(dsp, False);
  818.     if (d)
  819.         delay(d);
  820.     }
  821.     return CONT;
  822. }
  823.  
  824. /*-
  825.  * DATA item [item] ...
  826.  * define data elements
  827.  */
  828. int
  829. f_data(ex, ip, nargs)
  830.     ExecStruct *ex;
  831.     int         ip;
  832.     int         nargs;
  833. {
  834.     switch (nargs) {
  835.     case 0:
  836.     error("%s: argcount mismatch\n");
  837.     break;
  838.     default:
  839.     break;
  840.     }
  841.  
  842.     ex->currentdataptr = ip;
  843.     return CONT;
  844. }
  845.  
  846. /*-
  847.  * DATABEGIN
  848.  * define data elements (multiple lines)
  849.  */
  850. int
  851. f_databegin(ex, ip, nargs)
  852.     ExecStruct *ex;
  853.     int         ip;
  854.     int         nargs;
  855. {
  856.     switch (nargs) {
  857.     case 1:
  858.     ex->currentdataptr = intarg(ex, ip);
  859.     break;
  860.     default:
  861.     ex->currentdataptr = ip;
  862.     break;
  863.     }
  864.  
  865.     return CONT;
  866. }
  867.  
  868. /*-
  869.  * DATAEND
  870.  * mark the end of a data block
  871.  */
  872. int
  873. f_dataend(ex, ip, nargs)
  874.     ExecStruct *ex;
  875.     int         ip;
  876.     int         nargs;
  877. {
  878.     switch (nargs) {
  879.     case 0:
  880.     break;
  881.     default:
  882.     error("%s: argcount mismatch\n");
  883.     break;
  884.     }
  885.  
  886.     ex->currentdataend = ip - 2;
  887.     return CONT;
  888. }
  889.  
  890. /*-
  891.  * DATASKIP n
  892.  * skip n data elements in a block.
  893.  */
  894. f_dataskip(ex, ip, nargs)
  895.     ExecStruct *ex;
  896.     int         ip;
  897.     int         nargs;
  898. {
  899.     switch (nargs) {
  900.     case 1:
  901.     ex->currentdataptr += intarg(ex, ip);
  902.     break;
  903.     default:
  904.     error("%s: argcount mismatch\n");
  905.     break;
  906.     }
  907.  
  908.     return unimplemented(ex, ip);
  909. }
  910.  
  911. /*-
  912.  * DFREE buffer [buffer] ...
  913.  *
  914.  */
  915. int
  916. f_dfree(ex, ip, nargs)
  917.     ExecStruct *ex;
  918.     int         ip;
  919.     int         nargs;
  920. {
  921. #ifdef UNIMPLEMENTED
  922.     switch (nargs) {
  923.     case 0:
  924.     error("%s: argcount mismatch\n");
  925.     break;
  926.     default:
  927.     break;
  928.     }
  929. #endif
  930.  
  931.     return unimplemented(ex, ip);
  932. }
  933.  
  934. /*-
  935.  * DLOAD name [buffer] [disk]
  936.  * load a differential animation file.
  937.  */
  938. int
  939. f_dload(ex, ip, nargs)
  940.     ExecStruct *ex;
  941.     int         ip;
  942.     int         nargs;
  943. {
  944. #ifdef UNIMPLEMENTED
  945.     switch (nargs) {
  946.     case 3:
  947.     case 2:
  948.     case 1:
  949.     break;
  950.     default:
  951.     error("%s: argcount mismatch\n");
  952.     break;
  953.     }
  954. #endif
  955.  
  956.     return unimplemented(ex, ip);
  957. }
  958.  
  959. /*-
  960.  * EDGE setting [color]
  961.  * turn leading edge for fades on or off.
  962.  */
  963. int
  964. f_edge(ex, ip, nargs)
  965.     ExecStruct *ex;
  966.     int         ip;
  967.     int         nargs;
  968. {
  969. #ifdef UNIMPLEMENTED
  970.     switch (nargs) {
  971.     case 2:
  972.     case 1:
  973.     break;
  974.     default:
  975.     error("%s: argcount mismatch\n");
  976.     break;
  977.     }
  978. #endif
  979.  
  980.     return unimplemented(ex, ip);
  981. }
  982.  
  983. /*-
  984.  * ELSE
  985.  * target for IF condition not met.
  986.  */
  987. int
  988. f_else(ex, ip, nargs)
  989.     ExecStruct *ex;
  990.     int         ip;
  991.     int         nargs;
  992. {
  993. #ifdef UNIMPLEMENTED
  994.     switch (nargs) {
  995.     case 0:
  996.     error("%s: argcount mismatch\n");
  997.     break;
  998.     default:
  999.     break;
  1000.     }
  1001. #endif
  1002.  
  1003.     return unimplemented(ex, ip);
  1004. }
  1005.  
  1006. /*-
  1007.  * ENDLFLOAT
  1008.  * clear the float background buffer.
  1009.  */
  1010. int
  1011. f_endlfloat(ex, ip, nargs)
  1012.     ExecStruct *ex;
  1013.     int         ip;
  1014.     int         nargs;
  1015. {
  1016. #ifdef UNIMPLEMENTED
  1017.     switch (nargs) {
  1018.     case 0:
  1019.     error("%s: argcount mismatch\n");
  1020.     break;
  1021.     default:
  1022.     break;
  1023.     }
  1024. #endif
  1025.  
  1026.     return unimplemented(ex, ip);
  1027. }
  1028.  
  1029. /*-
  1030.  * ENDIF
  1031.  * mark the end of an if-else block
  1032.  */
  1033. int
  1034. f_endif(ex, ip, nargs)
  1035.     ExecStruct *ex;
  1036.     int         ip;
  1037.     int         nargs;
  1038. {
  1039. #ifdef UNIMPLEMENTED
  1040.     switch (nargs) {
  1041.     case 0:
  1042.     error("%s: argcount mismatch\n");
  1043.     break;
  1044.     default:
  1045.     break;
  1046.     }
  1047. #endif
  1048.  
  1049.     return unimplemented(ex, ip);
  1050. }
  1051.  
  1052. /*-
  1053.  * EXEC name [options]
  1054.  * run a non-grasp program.
  1055.  */
  1056. int
  1057. f_exec(ex, ip, nargs)
  1058.     ExecStruct *ex;
  1059.     int         ip;
  1060.     int         nargs;
  1061. {
  1062. #ifdef UNIMPLEMENTED
  1063.     switch (nargs) {
  1064.     case 2:
  1065.     case 1:
  1066.     break;
  1067.     default:
  1068.     error("%s: argcount mismatch\n");
  1069.     break;
  1070.     }
  1071. #endif
  1072.  
  1073.     return unimplemented(ex, ip);
  1074. }
  1075.  
  1076. /*-
  1077.  * EXIT [value]
  1078.  * exit grasp or subprogram.
  1079.  */
  1080. int
  1081. f_exit(ex, ip, nargs)
  1082.     ExecStruct *ex;
  1083.     int         ip;
  1084.     int         nargs;
  1085. {
  1086.     switch (nargs) {
  1087.     case 1:
  1088.     case 0:
  1089.     break;
  1090.     default:
  1091.     error("%s: argcount mismatch\n");
  1092.     break;
  1093.     }
  1094.  
  1095.     delay(100);
  1096.     return DONE;
  1097. }
  1098.  
  1099. /*-
  1100.  * FFREE buffer [buffer] ...
  1101.  * unload a font
  1102.  */
  1103. int
  1104. f_ffree(ex, ip, nargs)
  1105.     ExecStruct *ex;
  1106.     int         ip;
  1107.     int         nargs;
  1108. {
  1109. #ifdef UNIMPLEMENTED
  1110.     switch (nargs) {
  1111.     case 0:
  1112.     break;
  1113.     default:
  1114.     error("%s: argcount mismatch\n");
  1115.     break;
  1116.     }
  1117. #endif
  1118.  
  1119.     /* NOP */
  1120.     return CONT;
  1121. }
  1122.  
  1123. /*-
  1124.  * FGAPS char [space]
  1125.  * set letter and word spacing
  1126.  */
  1127. int
  1128. f_fgaps(ex, ip, nargs)
  1129.     ExecStruct *ex;
  1130.     int         ip;
  1131.     int         nargs;
  1132. {
  1133.     switch (nargs) {
  1134.     case 2:
  1135.     spacegap = intarg(ex, ip + 1);
  1136.     case 1:
  1137.     chargap = intarg(ex, ip);
  1138.     break;
  1139.     default:
  1140.     error("%s: argcount mismatch\n");
  1141.     break;
  1142.     }
  1143.  
  1144.     return CONT;
  1145. }
  1146.  
  1147. /*-
  1148.  * FLOAD name [buffer]
  1149.  * load a font
  1150.  */
  1151. int
  1152. f_fload(ex, ip, nargs)
  1153.     ExecStruct *ex;
  1154.     int         ip;
  1155.     int         nargs;
  1156. {
  1157.     FontStruct *f;
  1158.     int         reg = 1;
  1159.  
  1160.     switch (nargs) {
  1161.     case 2:
  1162.     reg = intarg(ex, ip + 1);
  1163.     case 1:
  1164.     f = fntarg(ex, ip);
  1165.     break;
  1166.     default:
  1167.     error("%s: argcount mismatch\n");
  1168.     break;
  1169.     }
  1170.  
  1171.     fontreg[reg] = f;
  1172.     currentfont = f;
  1173.  
  1174.     chargap = 1;
  1175.     spacegap = f->glyphs[' '].width;
  1176.  
  1177.     return CONT;
  1178. }
  1179.  
  1180. /*-
  1181.  * FLOAT x1 y1 x2 y2 step delay buf [buf] ...
  1182.  * animate a clipping and preserve the background.
  1183.  */
  1184. int
  1185. f_float(ex, ip, nargs)
  1186.     ExecStruct *ex;
  1187.     int         ip;
  1188.     int         nargs;
  1189. {
  1190.     int         x1;
  1191.     int         y1;
  1192.     int         x2;
  1193.     int         y2;
  1194.     int         step;
  1195.     int         d;
  1196.     int         i;
  1197.     int         image;
  1198.     int         count;
  1199.     float       x;
  1200.     float       y;
  1201.     float       dx;
  1202.     float       dy;
  1203.     Window      floatwin;
  1204.     ImageStruct *im;
  1205.     XSetWindowAttributes xswa;
  1206.  
  1207.     switch (nargs) {
  1208.     case 6:
  1209.     case 5:
  1210.     case 4:
  1211.     case 3:
  1212.     case 2:
  1213.     case 1:
  1214.     case 0:
  1215.     error("%s: argcount mismatch\n");
  1216.     break;
  1217.     default:
  1218.     im = clipreg[intarg(ex, ip + 6)];
  1219.     d = intarg(ex, ip + 5);
  1220.     step = intarg(ex, ip + 4);
  1221.     y2 = intarg(ex, ip + 3);
  1222.     x2 = intarg(ex, ip + 2);
  1223.     y1 = intarg(ex, ip + 1);
  1224.     x1 = intarg(ex, ip);
  1225.     break;
  1226.     }
  1227.  
  1228.     xswa.backing_store = Always;
  1229.     floatwin = XCreateWindow(dsp, win, x1, YFLIPIM(y1, im), im->w, im->h, 0, 8,
  1230.              InputOutput, vis, CWBackingStore, &xswa);
  1231.     XCopyArea(dsp, im->pix, floatwin, gc, 0, 0, im->w, im->h, 0, 0);
  1232.     XMapWindow(dsp, floatwin);
  1233.  
  1234.     if (x1 == x2 && y1 == y2 ) {
  1235.     for (image = 7; image < nargs; image++) {
  1236.         im = clipreg[intarg(ex, ip + image)];
  1237.         XMoveResizeWindow(dsp, floatwin, x1, YFLIPIM(y1, im), im->w, im->h);
  1238.         XCopyArea(dsp, im->pix, floatwin, gc, 0, 0, im->w, im->h, 0, 0);
  1239.         XSync(dsp, False);
  1240.         delay(d);
  1241.     }
  1242.     } else {
  1243.     x = x1;
  1244.     y = y1;
  1245.     dx = (x2 - x1);
  1246.     dy = (y2 - y1);
  1247.     count = sqrt(dx * dx + dy * dy) / step;
  1248.     dx /= count;
  1249.     dy /= count;
  1250.     image = 7;
  1251.  
  1252.     for (i = 0; i <= count; i++) {
  1253.         if (nargs > 7) {
  1254.         im = clipreg[intarg(ex, ip + image)];
  1255.         if (++image == nargs)
  1256.             image = 6;
  1257.         }
  1258.         XMoveResizeWindow(dsp, floatwin, (int) x, YFLIPIM((int) y, im), 
  1259.         im->w, im->h);
  1260.         XCopyArea(dsp, im->pix, floatwin, gc, 0, 0, im->w, im->h, 0, 0);
  1261.         XSync(dsp, False);
  1262.         x += dx;
  1263.         y += dy;
  1264.         delay(d);
  1265.     }
  1266.     }
  1267.  
  1268.     XUnmapWindow(dsp, floatwin);
  1269.     XDestroyWindow(dsp, floatwin);
  1270.     return CONT;
  1271. }
  1272.  
  1273. /*-
  1274.  * FLY x1 y1 x2 y2 step delay buf [buf] ...
  1275.  * animate a clipping
  1276.  */
  1277. int
  1278. f_fly(ex, ip, nargs)
  1279.     ExecStruct *ex;
  1280.     int         ip;
  1281.     int         nargs;
  1282. {
  1283.     int         x1;
  1284.     int         y1;
  1285.     int         x2;
  1286.     int         y2;
  1287.     int         step;
  1288.     int         d;
  1289.     int         i;
  1290.     int         image;
  1291.     int         count;
  1292.     float       x;
  1293.     float       y;
  1294.     float       dx;
  1295.     float       dy;
  1296.     ImageStruct *im;
  1297.  
  1298.     switch (nargs) {
  1299.     case 6:
  1300.     case 5:
  1301.     case 4:
  1302.     case 3:
  1303.     case 2:
  1304.     case 1:
  1305.     case 0:
  1306.     error("%s: argcount mismatch\n");
  1307.     break;
  1308.     default:
  1309.     im = clipreg[intarg(ex, ip + 6)];
  1310.     d = intarg(ex, ip + 5);
  1311.     step = intarg(ex, ip + 4);
  1312.     y2 = intarg(ex, ip + 3);
  1313.     x2 = intarg(ex, ip + 2);
  1314.     y1 = intarg(ex, ip + 1);
  1315.     x1 = intarg(ex, ip);
  1316.     break;
  1317.     }
  1318.  
  1319.     XCopyArea(dsp, im->pix, win, gc, 0, 0, im->w, im->h, x1, YFLIPIM(y1, im));
  1320.  
  1321.     if (x1 == x2 && y1 == y2 ) {
  1322.     for (image = 7; image < nargs; image++) {
  1323.         im = clipreg[intarg(ex, ip + image)];
  1324.             XCopyArea(dsp, im->pix, win, gc, 0, 0, im->w, im->h, 
  1325.         x1, YFLIPIM(y1, im));
  1326.         XSync(dsp, False);
  1327.         delay(d);
  1328.     }
  1329.     } else {
  1330.     x  = x1;
  1331.     y  = y1;
  1332.     dx = (x2 - x1);
  1333.     dy = (y2 - y1);
  1334.     count = sqrt(dx * dx + dy * dy) / step;
  1335.     dx /= count;
  1336.     dy /= count;
  1337.     image = 7;
  1338.  
  1339.     for (i = 0; i <= count; i++) {
  1340.         if (nargs > 7) {
  1341.         im = clipreg[intarg(ex, ip + image)];
  1342.         if (++image == nargs)
  1343.             image = 6;
  1344.         }
  1345.             XCopyArea(dsp, im->pix, win, gc, 0, 0, im->w, im->h, 
  1346.         (int) x, YFLIPIM((int) y, im));
  1347.         XSync(dsp, False);
  1348.         x += dx;
  1349.         y += dy;
  1350.         delay(d);
  1351.     }
  1352.     }
  1353.  
  1354.     return CONT;
  1355. }
  1356.  
  1357. /*-
  1358.  * FONT [buffer]
  1359.  * select a font
  1360.  */
  1361. int
  1362. f_font(ex, ip, nargs)
  1363.     ExecStruct *ex;
  1364.     int         ip;
  1365.     int         nargs;
  1366. {
  1367.     switch (nargs) {
  1368.     case 1:
  1369.     currentfont = fontreg[intarg(ex, ip)];
  1370.     break;
  1371.     case 0:
  1372.     currentfont = fontreg[0];
  1373.     break;
  1374.     default:
  1375.     error("%s: argcount mismatch\n");
  1376.     break;
  1377.     }
  1378.  
  1379.     return CONT;
  1380. }
  1381.  
  1382. /*-
  1383.  * FSTYLE dir off1 [off2]
  1384.  * set character shading... (I think this changed between 1.1 and 3.0)
  1385.  */
  1386. int
  1387. f_fstyle(ex, ip, nargs)
  1388.     ExecStruct *ex;
  1389.     int         ip;
  1390.     int         nargs;
  1391. {
  1392.     switch (nargs) {
  1393.     case 1:
  1394.     fstyle = intarg(ex, ip);
  1395.     break;
  1396.     default:
  1397.     error("%s: argcount mismatch\n");
  1398.     break;
  1399.     }
  1400.  
  1401.     return CONT;
  1402. }
  1403.  
  1404. /*-
  1405.  * GETCOLOR x y
  1406.  * set the drawing color equal to the screen pixel.
  1407.  */
  1408. int
  1409. f_getcolor(ex, ip, nargs)
  1410.     ExecStruct *ex;
  1411.     int         ip;
  1412.     int         nargs;
  1413. {
  1414.     int         x = intarg(ex, ip);
  1415.     int         y = intarg(ex, ip + 1);
  1416.     XImage     *xim;
  1417.  
  1418.     switch (nargs) {
  1419.     case 2:
  1420.     y = YFLIP(intarg(ex, ip + 1));
  1421.     x = intarg(ex, ip);
  1422.     break;
  1423.     default:
  1424.     error("%s: argcount mismatch\n");
  1425.     break;
  1426.     }
  1427.  
  1428.     xim = XGetImage(dsp, win, x, YFLIP(y), 1, 1, 0xff, ZPixmap);
  1429.     currentcolor = XGetPixel(xim, 0, 0);
  1430.     printf("getcolor %d,%d = %d\n", x, y, currentcolor);
  1431.     XDestroyImage(xim);
  1432.     return CONT;
  1433. }
  1434.  
  1435. /*-
  1436.  * GETKEY name
  1437.  * set a variable equal to a keystroke
  1438.  */
  1439. int
  1440. f_getkey(ex, ip, nargs)
  1441.     ExecStruct *ex;
  1442.     int         ip;
  1443.     int         nargs;
  1444. {
  1445. #ifdef UNIMPLEMENTED
  1446.     switch (nargs) {
  1447.     case 1:
  1448.     break;
  1449.     default:
  1450.     error("%s: argcount mismatch\n");
  1451.     break;
  1452.     }
  1453. #endif
  1454.  
  1455.     return unimplemented(ex, ip);
  1456. }
  1457.  
  1458. /*-
  1459.  * GOSUB label [val] ...
  1460.  * execute a subroutine
  1461.  */
  1462. int
  1463. f_gosub(ex, ip, nargs)
  1464.     ExecStruct *ex;
  1465.     int         ip;
  1466.     int         nargs;
  1467. {
  1468.     switch (nargs) {
  1469.     case 2:
  1470.     case 1:
  1471.     break;
  1472.     default:
  1473.     error("%s: argcount mismatch\n");
  1474.     break;
  1475.     }
  1476.  
  1477.     ipstack[loopstackptr] = ip + 1;
  1478.     if (++loopstackptr >= STACKSIZE)
  1479.     error("%s: ipstack overflow\n");
  1480.     return intarg(ex, ip);
  1481. }
  1482.  
  1483. /*-
  1484.  * GOTO label
  1485.  * jump to a label
  1486.  */
  1487. int
  1488. f_goto(ex, ip, nargs)
  1489.     ExecStruct *ex;
  1490.     int         ip;
  1491.     int         nargs;
  1492. {
  1493.     switch (nargs) {
  1494.     case 1:
  1495.     break;
  1496.     default:
  1497.     error("%s: argcount mismatch\n");
  1498.     break;
  1499.     }
  1500.  
  1501.     return intarg(ex, ip);
  1502. }
  1503.  
  1504. /*-
  1505.  * IF exp [label]
  1506.  * jump if condition is met, or start if-else block if no label.
  1507.  */
  1508. int
  1509. f_if(ex, ip, nargs)
  1510.     ExecStruct *ex;
  1511.     int         ip;
  1512.     int         nargs;
  1513. {
  1514.     switch (nargs) {
  1515.     case 2:
  1516.     case 1:
  1517.     break;
  1518.     default:
  1519.     error("%s: argcount mismatch\n");
  1520.     break;
  1521.     }
  1522.  
  1523.     return unimplemented(ex, ip);
  1524. }
  1525.  
  1526. /*-
  1527.  * IFKEY key [label [key label] ... ]
  1528.  * check for specific keypress
  1529.  */
  1530. int
  1531. f_ifkey(ex, ip, nargs)
  1532.     ExecStruct *ex;
  1533.     int         ip;
  1534.     int         nargs;
  1535. {
  1536.     int         i;
  1537.  
  1538.     switch (nargs) {
  1539.     case 0:
  1540.     error("%s: argcount mismatch\n");
  1541.     break;
  1542.     default:
  1543.     break;
  1544.     }
  1545.  
  1546.     for (i = 0; i < nargs; i += 2) {
  1547.     char       *key = strarg(ex, ip + i);
  1548.     if (*key == keypressed)
  1549.         return intarg(ex, ip + i + 1);
  1550.     }
  1551.     return CONT;
  1552. }
  1553.  
  1554. /*-
  1555.  * IFMEM mem [label]
  1556.  * check available memory.
  1557.  */
  1558. int
  1559. f_ifmem(ex, ip, nargs)
  1560.     ExecStruct *ex;
  1561.     int         ip;
  1562.     int         nargs;
  1563. {
  1564.     /* ignore the memory value */
  1565.  
  1566.     int         label;
  1567.  
  1568.     switch (nargs) {
  1569.     case 2:
  1570.     label = intarg(ex, ip + 1);
  1571.         break;
  1572.     case 1:
  1573.     label = CONT;
  1574.     break;
  1575.     default:
  1576.     error("%s: argcount mismatch\n");
  1577.     break;
  1578.     }
  1579.  
  1580.     return label;
  1581. }
  1582.  
  1583. /*-
  1584.  * IFMOUSE button [label1] [x y x1 y1] [color] [wait] [label2]
  1585.  * check for a mouse click (no idea how this one is supposed to work).
  1586.  */
  1587. int
  1588. f_ifmouse(ex, ip, nargs)
  1589.     ExecStruct *ex;
  1590.     int         ip;
  1591.     int         nargs;
  1592. {
  1593. #ifdef UNIMPLEMENTED
  1594.     switch (nargs) {
  1595.     case 9:
  1596.     case 8:
  1597.     case 7:
  1598.     case 6:
  1599.     case 2:
  1600.     case 1:
  1601.     break;
  1602.     default:
  1603.     error("%s: argcount mismatch\n");
  1604.     break;
  1605.     }
  1606. #endif
  1607.  
  1608.     return unimplemented(ex, ip);
  1609. }
  1610.  
  1611. /*-
  1612.  * IFVIDEO mode [label]
  1613.  * check whether video mode is available
  1614.  */
  1615. int
  1616. f_ifvideo(ex, ip, nargs)
  1617.     ExecStruct *ex;
  1618.     int         ip;
  1619.     int         nargs;
  1620. {
  1621.     int         label;
  1622.  
  1623.     switch (nargs) {
  1624.     case 2:
  1625.     label = intarg(ex, ip + 1);
  1626.     break;
  1627.     case 1:
  1628.     label = CONT;
  1629.     break;
  1630.     default:
  1631.     error("%s: argcount mismatch\n");
  1632.     break;
  1633.     }
  1634.  
  1635.     return label;
  1636. }
  1637.  
  1638. /*-
  1639.  * INT num [ax] [bx] [cx] [dx] [si] [di] [ds] [es]
  1640.  * call an MSDOS interrupt... (yeah, right!)
  1641.  */
  1642. int
  1643. f_int(ex, ip, nargs)
  1644.     ExecStruct *ex;
  1645.     int         ip;
  1646.     int         nargs;
  1647. {
  1648. #ifdef UNIMPLEMENTED
  1649.     switch (nargs) {
  1650.     case 9:
  1651.     case 8:
  1652.     case 7:
  1653.     case 6:
  1654.     case 5:
  1655.     case 4:
  1656.     case 3:
  1657.     case 2:
  1658.     case 1:
  1659.     break;
  1660.     default:
  1661.     error("%s: argcount mismatch\n");
  1662.     break;
  1663.     }
  1664. #endif
  1665.  
  1666.     return unimplemented(ex, ip);
  1667. }
  1668.  
  1669. static int  linex1 = 0;
  1670. static int  liney1 = 0;
  1671. static int  linex2 = 0;
  1672. static int  liney2 = 0;
  1673.  
  1674. /*-
  1675.  * LINE x1 y1 x2 y2 [R]
  1676.  * draw a line, (possibly relative to the current point).
  1677.  */
  1678. int
  1679. f_line(ex, ip, nargs)
  1680.     ExecStruct *ex;
  1681.     int         ip;
  1682.     int         nargs;
  1683. {
  1684.     switch (nargs) {
  1685.     case 5:
  1686.     linex1 += intarg(ex, ip);
  1687.     liney1 += intarg(ex, ip + 1);
  1688.     linex2 += intarg(ex, ip + 2);
  1689.     liney2 += intarg(ex, ip + 3);
  1690.     break;
  1691.     case 4:
  1692.     linex1 = intarg(ex, ip);
  1693.     liney1 = intarg(ex, ip + 1);
  1694.     linex2 = intarg(ex, ip + 2);
  1695.     liney2 = intarg(ex, ip + 3);
  1696.     break;
  1697.     default:
  1698.     error("%s: argcount mismatch\n");
  1699.     break;
  1700.     }
  1701.  
  1702.     XSetForeground(dsp, gc, currentcolor);
  1703.     XDrawLine(dsp, win, gc, linex1, YFLIP(liney1), linex2, YFLIP(liney2));
  1704.     XSync(dsp, False);
  1705.     return CONT;
  1706. }
  1707.  
  1708. /*-
  1709.  * LINK name [label]
  1710.  * jump to another program
  1711.  */
  1712. int
  1713. f_link(ex, ip, nargs)
  1714.     ExecStruct *ex;
  1715.     int         ip;
  1716.     int         nargs;
  1717. {
  1718.     void        execfile();
  1719.     int         label;
  1720.  
  1721.     switch (nargs) {
  1722.     case 2:
  1723.     label = intarg(ex, ip + 1);
  1724.     break;
  1725.     case 1:
  1726.     label = 0;
  1727.     break;
  1728.     default:
  1729.     error("%s: argcount mismatch\n");
  1730.     break;
  1731.     }
  1732.  
  1733.     execfile(excarg(ex, ip), label);
  1734.     return DONE;
  1735. }
  1736.  
  1737. /*-
  1738.  * LOCAL var value
  1739.  * define a local variable
  1740.  */
  1741. int
  1742. f_local(ex, ip, nargs)
  1743.     ExecStruct *ex;
  1744.     int         ip;
  1745.     int         nargs;
  1746. {
  1747. #ifdef UNIMPLEMENTED
  1748.     switch (nargs) {
  1749.     case 2:
  1750.     break;
  1751.     default:
  1752.     error("%s: argcount mismatch\n");
  1753.     break;
  1754.     }
  1755. #endif
  1756.  
  1757.     return unimplemented(ex, ip);
  1758. }
  1759.  
  1760. /*-
  1761.  * LOOP
  1762.  * define the end of a MARK'ed loop.
  1763.  */
  1764. int
  1765. f_loop(ex, ip, nargs)
  1766.     ExecStruct *ex;
  1767.     int         ip;
  1768.     int         nargs;
  1769. {
  1770.     switch (nargs) {
  1771.     case 0:
  1772.     break;
  1773.     default:
  1774.     error("%s: argcount mismatch\n");
  1775.     break;
  1776.     }
  1777.  
  1778.     if (--loopstack[loopstackptr - 1].count == 0) {
  1779.     --loopstackptr;
  1780.  
  1781.     return CONT;
  1782.     }
  1783.     return loopstack[loopstackptr - 1].ipaddr;
  1784. }
  1785.  
  1786. /*-
  1787.  * MARK count [rand]
  1788.  * define the beggining of a loop. (not sure what rand is supposed to do.)
  1789.  */
  1790. int
  1791. f_mark(ex, ip, nargs)
  1792.     ExecStruct *ex;
  1793.     int         ip;
  1794.     int         nargs;
  1795. {
  1796.     switch (nargs) {
  1797.     case 2:
  1798.     case 1:
  1799.     break;
  1800.     default:
  1801.     error("%s: argcount mismatch\n");
  1802.     break;
  1803.     }
  1804.  
  1805.     loopstack[loopstackptr].count = intarg(ex, ip);
  1806.     loopstack[loopstackptr].ipaddr = ip + 1;
  1807.     if (++loopstackptr >= STACKSIZE)
  1808.     error("%s: stack overflow\n");
  1809.     return CONT;
  1810. }
  1811.  
  1812. /*-
  1813.  * MERGE name
  1814.  * add lines to the current program from another
  1815.  * (why is this different from CALL?)
  1816.  */
  1817. int
  1818. f_merge(ex, ip, nargs)
  1819.     ExecStruct *ex;
  1820.     int         ip;
  1821.     int         nargs;
  1822. {
  1823. #ifdef UNIMPLEMENTED
  1824.     switch (nargs) {
  1825.     case 1:
  1826.     break;
  1827.     default:
  1828.     error("%s: argcount mismatch\n");
  1829.     break;
  1830.     }
  1831. #endif
  1832.  
  1833.     return unimplemented(ex, ip);
  1834. }
  1835.  
  1836. /*-
  1837.  * MODE color
  1838.  * change colors in 2 color CGA mode.
  1839.  */
  1840. int
  1841. f_mode(ex, ip, nargs)
  1842.     ExecStruct *ex;
  1843.     int         ip;
  1844.     int         nargs;
  1845. {
  1846.     int         color;
  1847.     int         pal = 0;
  1848.     int         i;
  1849.     u_long      pmasks;
  1850.     u_long      pixels[4];
  1851.     ImageStruct *im = picreg[0];
  1852.  
  1853.     switch (nargs) {
  1854.     case 1:
  1855.     color = intarg(ex, ip);
  1856.     break;
  1857.     default:
  1858.     error("%s: argcount mismatch\n");
  1859.     break;
  1860.     }
  1861.  
  1862.     im->cmaplen = 4;
  1863.     if (nargs > 1)
  1864.     pal = intarg(ex, ip + 1);
  1865.     if (!im->cmap) {
  1866.     im->cmap = XCreateColormap(dsp, win, vis, AllocNone);
  1867.     XAllocColorCells(dsp, im->cmap, True, &pmasks, 0, pixels, im->cmaplen);
  1868.     }
  1869.     i = 0;
  1870.     im->colors[i].pixel = i;
  1871.     im->colors[i].red = egapal[color][0];
  1872.     im->colors[i].green = egapal[color][1];
  1873.     im->colors[i].blue = egapal[color][2];
  1874.     im->colors[i].flags = DoRed | DoGreen | DoBlue;
  1875.  
  1876.     for (i = 1; i < 4; i++) {
  1877.     color = cgapal[i - 1][pal];
  1878.     im->colors[i].pixel = i;
  1879.     im->colors[i].red = egapal[color][0];
  1880.     im->colors[i].green = egapal[color][1];
  1881.     im->colors[i].blue = egapal[color][2];
  1882.     im->colors[i].flags = DoRed | DoGreen | DoBlue;
  1883.     }
  1884.     XStoreColors(dsp, im->cmap, im->colors, im->cmaplen);
  1885.     installcmap(0);
  1886.     return CONT;
  1887. }
  1888.  
  1889. /*-
  1890.  * MOUSE setting
  1891.  * turn mouse on/off
  1892.  */
  1893. int
  1894. f_mouse(ex, ip, nargs)
  1895.     ExecStruct *ex;
  1896.     int         ip;
  1897.     int         nargs;
  1898. {
  1899. #ifdef UNIMPLEMENTED
  1900.     switch (nargs) {
  1901.     case 1:
  1902.     break;
  1903.     default:
  1904.     error("%s: argcount mismatch\n");
  1905.     break;
  1906.     }
  1907. #endif
  1908.  
  1909.     return unimplemented(ex, ip);
  1910. }
  1911.  
  1912. /*-
  1913.  * MOVE x1 y1 x2 y2 x3 y3
  1914.  * move an area of the screen
  1915.  */
  1916. int
  1917. f_move(ex, ip, nargs)
  1918.     ExecStruct *ex;
  1919.     int         ip;
  1920.     int         nargs;
  1921. {
  1922.     int         x1;
  1923.     int         y1;
  1924.     int         x2;
  1925.     int         y2;
  1926.     int         w;
  1927.     int         h;
  1928.     int         x3;
  1929.     int         y3;
  1930.  
  1931.     switch (nargs) {
  1932.     case 6:
  1933.     x1 = intarg(ex, ip);
  1934.     y1 = YFLIP(intarg(ex, ip + 1));
  1935.     x2 = intarg(ex, ip + 2);
  1936.     y2 = YFLIP(intarg(ex, ip + 3));
  1937.     w = x2 - x1;
  1938.     h = y2 - y1;
  1939.     x3 = intarg(ex, ip + 4);
  1940.     y3 = YFLIP(intarg(ex, ip + 5)) - h;
  1941.     break;
  1942.     default:
  1943.     error("%s: argcount mismatch\n");
  1944.     break;
  1945.     }
  1946.  
  1947.     XCopyArea(dsp, win, win, gc, x1, y1, w, h, x3, y3);
  1948.     return CONT;
  1949. }
  1950.  
  1951. /*-
  1952.  * NOISE n m time
  1953.  * create a sound
  1954.  */
  1955. int
  1956. f_noise(ex, ip, nargs)
  1957.     ExecStruct *ex;
  1958.     int         ip;
  1959.     int         nargs;
  1960. {
  1961.     /* NOP */
  1962.     switch (nargs) {
  1963.     case 3:
  1964.     break;
  1965.     default:
  1966.     error("%s: argcount mismatch\n");
  1967.     break;
  1968.     }
  1969.  
  1970.     return CONT;
  1971. }
  1972.  
  1973. /*-
  1974.  * NOTE val tone time [R]
  1975.  * play a note
  1976.  */
  1977. int
  1978. f_note(ex, ip, nargs)
  1979.     ExecStruct *ex;
  1980.     int         ip;
  1981.     int         nargs;
  1982. {
  1983.     /* NOP */
  1984.     switch (nargs) {
  1985.     case 4:
  1986.     case 3:
  1987.     break;
  1988.     default:
  1989.     error("%s: argcount mismatch\n");
  1990.     break;
  1991.     }
  1992.  
  1993.     return CONT;
  1994. }
  1995.  
  1996. /*-
  1997.  * OFFSET x y [R]
  1998.  * change the screen coords for some other commands.
  1999.  */
  2000. int
  2001. f_offset(ex, ip, nargs)
  2002.     ExecStruct *ex;
  2003.     int         ip;
  2004.     int         nargs;
  2005. {
  2006. #ifdef UNIMPLEMENTED
  2007.     switch (nargs) {
  2008.     case 3:
  2009.     case 2:
  2010.     break;
  2011.     default:
  2012.     error("%s: argcount mismatch\n");
  2013.     break;
  2014.     }
  2015. #endif
  2016.  
  2017.     return unimplemented(ex, ip);
  2018. }
  2019.  
  2020. /*-
  2021.  * OPENGL name
  2022.  * use files in a library file.
  2023.  */
  2024. int
  2025. f_opengl(ex, ip, nargs)
  2026.     ExecStruct *ex;
  2027.     int         ip;
  2028.     int         nargs;
  2029. {
  2030. #ifdef UNIMPLEMENTED
  2031.     switch (nargs) {
  2032.     case 1:
  2033.     break;
  2034.     default:
  2035.     error("%s: argcount mismatch\n");
  2036.     break;
  2037.     }
  2038. #endif
  2039.  
  2040.     return unimplemented(ex, ip);
  2041. }
  2042.  
  2043. /*-
  2044.  * OUT dx al [ah]
  2045.  * output a value to an IBM PC hardware IO port (yeah, right!)
  2046.  */
  2047. int
  2048. f_out(ex, ip, nargs)
  2049.     ExecStruct *ex;
  2050.     int         ip;
  2051.     int         nargs;
  2052. {
  2053. #ifdef UNIMPLEMENTED
  2054.     switch (nargs) {
  2055.     case 3:
  2056.     case 2:
  2057.     break;
  2058.     default:
  2059.     error("%s: argcount mismatch\n");
  2060.     break;
  2061.     }
  2062. #endif
  2063.  
  2064.     return unimplemented(ex, ip);
  2065. }
  2066.  
  2067. /*-
  2068.  * PALETTE buffer
  2069.  * set palette colors to match a given picture.
  2070.  */
  2071. int
  2072. f_palette(ex, ip, nargs)
  2073.     ExecStruct *ex;
  2074.     int         ip;
  2075.     int         nargs;
  2076. {
  2077.     int         cmap;
  2078.  
  2079.     switch (nargs) {
  2080.     case 1:
  2081.     cmap = intarg(ex, ip);
  2082.     break;
  2083.     default:
  2084.     error("%s: argcount mismatch\n");
  2085.     break;
  2086.     }
  2087.  
  2088.     installcmap(cmap);
  2089.     return CONT;
  2090. }
  2091.  
  2092. /*-
  2093.  * PAN [x1 y1] x2 y2 [R] [speed]
  2094.  * pan across large picture in EGA mode.
  2095.  */
  2096. int
  2097. f_pan(ex, ip, nargs)
  2098.     ExecStruct *ex;
  2099.     int         ip;
  2100.     int         nargs;
  2101. {
  2102. #ifdef UNIMPLEMENTED
  2103.     switch (nargs) {
  2104.     case 1:
  2105.     break;
  2106.     default:
  2107.     error("%s: argcount mismatch\n");
  2108.     break;
  2109.     }
  2110. #endif
  2111.  
  2112.     return unimplemented(ex, ip);
  2113. }
  2114.  
  2115. /*-
  2116.  * PFADE fade [buffer] [speed] [delay]
  2117.  * display a picture.
  2118.  */
  2119. int
  2120. f_pfade(ex, ip, nargs)
  2121.     ExecStruct *ex;
  2122.     int         ip;
  2123.     int         nargs;
  2124. {
  2125.     int         fadestyle;
  2126.     int         buf = 0;
  2127.     int         speed = 0;
  2128.     int         d = 10;
  2129.     ImageStruct *im;
  2130.  
  2131.     switch (nargs) {
  2132.     case 4:
  2133.     d = (int) resolvewild(ex, ip + 3, INTEGER);
  2134.     case 3:
  2135.     speed = (int) resolvewild(ex, ip + 2, INTEGER);
  2136.     case 2:
  2137.     buf = (int) resolvewild(ex, ip + 1, INTEGER);
  2138.     case 1:
  2139.     fadestyle = (int) resolvewild(ex, ip, INTEGER);
  2140.     break;
  2141.     default:
  2142.     error("%s: argcount mismatch\n");
  2143.     }
  2144.  
  2145.     im = picreg[buf];
  2146.  
  2147.     if (buf == 0) {
  2148.     XSetForeground(dsp, gc, currentcolor);
  2149.     XFillRectangle(dsp, im->pix, gc, 0, 0, im->w, im->h);
  2150.     }
  2151.     if (im)
  2152.     imagefade(fadestyle, im, 0, 0, speed, 1);
  2153.  
  2154.     delay(d);
  2155.     return CONT;
  2156. }
  2157.  
  2158. /*-
  2159.  * PFREE buffer [buffer] ...
  2160.  * unload a picture.
  2161.  */
  2162. int
  2163. f_pfree(ex, ip, nargs)
  2164.     ExecStruct *ex;
  2165.     int         ip;
  2166.     int         nargs;
  2167. {
  2168.     /* NOP */
  2169.     switch (nargs) {
  2170.     case 0:
  2171.     error("%s: argcount mismatch\n");
  2172.     break;
  2173.     default:
  2174.     break;
  2175.     }
  2176.  
  2177.     return CONT;
  2178. }
  2179.  
  2180. /*-
  2181.  * PGETBUF n [x1 y1 x2 y2]
  2182.  * copy the screen into a picture buffer, (same as CGETBUF?)
  2183.  */
  2184. int
  2185. f_pgetbuf(ex, ip, nargs)
  2186.     ExecStruct *ex;
  2187.     int         ip;
  2188.     int         nargs;
  2189. {
  2190. #ifdef UNIMPLEMENTED
  2191.     switch (nargs) {
  2192.     case 5:
  2193.     case 1:
  2194.     break;
  2195.     default:
  2196.     error("%s: argcount mismatch\n");
  2197.     break;
  2198.     }
  2199. #endif
  2200.  
  2201.     return unimplemented(ex, ip);
  2202. }
  2203.  
  2204. /*-
  2205.  * PLOAD name [buffer]
  2206.  * load a picture.
  2207.  */
  2208. int
  2209. f_pload(ex, ip, nargs)
  2210.     ExecStruct *ex;
  2211.     int         ip;
  2212.     int         nargs;
  2213. {
  2214.     ImageStruct *im;
  2215.     int         regnum;
  2216.  
  2217.     switch (nargs) {
  2218.     case 2:
  2219.     im = imgarg(ex, ip);
  2220.     regnum = intarg(ex, ip + 1);
  2221.     break;
  2222.     case 1:
  2223.     im = imgarg(ex, ip);
  2224.     regnum = 1;
  2225.     break;
  2226.     default:
  2227.     error("%s: argcount mismatch\n");
  2228.     break;
  2229.     }
  2230.  
  2231.     picreg[regnum] = im;
  2232.     return CONT;
  2233. }
  2234.  
  2235. /*-
  2236.  * PNEWBUF buffer [x y]
  2237.  * create an empty picture buffer. (what is x, y? offset?)
  2238.  */
  2239. int
  2240. f_pnewbuf(ex, ip, nargs)
  2241.     ExecStruct *ex;
  2242.     int         ip;
  2243.     int         nargs;
  2244. {
  2245. #ifdef UNIMPLEMENTED
  2246.     switch (nargs) {
  2247.     case 3:
  2248.     case 1:
  2249.     break;
  2250.     default:
  2251.     error("%s: argcount mismatch\n");
  2252.     break;
  2253.     }
  2254. #endif
  2255.  
  2256.     return unimplemented(ex, ip);
  2257. }
  2258.  
  2259. /*-
  2260.  * POINT x y [rx ry]
  2261.  * draw a point (what are rx,ry?)
  2262.  */
  2263. int
  2264. f_point(ex, ip, nargs)
  2265.     ExecStruct *ex;
  2266.     int         ip;
  2267.     int         nargs;
  2268. {
  2269.     int         x = intarg(ex, ip);
  2270.     int         y = YFLIP(intarg(ex, ip + 1));
  2271.  
  2272.     switch (nargs) {
  2273.     case 4:
  2274.     case 2:
  2275.     x = intarg(ex, ip);
  2276.     y = YFLIP(intarg(ex, ip + 1));
  2277.     break;
  2278.     default:
  2279.     error("%s: argcount mismatch\n");
  2280.     break;
  2281.     }
  2282.  
  2283.     XSetForeground(dsp, gc, currentcolor);
  2284.     XDrawPoint(dsp, win, gc, x, y);
  2285.     XSync(dsp, False);
  2286.     return CONT;
  2287. }
  2288.  
  2289. /*-
  2290.  * POKE seg off byte [byte] ...
  2291.  * change 8-bit memory given 8088 seg:off address (yeah, right!)
  2292.  */
  2293. int
  2294. f_poke(ex, ip, nargs)
  2295.     ExecStruct *ex;
  2296.     int         ip;
  2297.     int         nargs;
  2298. {
  2299. #ifdef UNIMPLEMENTED
  2300.     switch (nargs) {
  2301.     case 2:
  2302.     case 1:
  2303.     error("%s: argcount mismatch\n");
  2304.     break;
  2305.     default:
  2306.     break;
  2307.     }
  2308. #endif
  2309.  
  2310.     return unimplemented(ex, ip);
  2311. }
  2312.  
  2313. /*-
  2314.  * POKEL seg off byte [byte] ...
  2315.  * change 32-bit memory given 8088 seg:off address (yeah, right!)
  2316.  */
  2317. int
  2318. f_pokel(ex, ip, nargs)
  2319.     ExecStruct *ex;
  2320.     int         ip;
  2321.     int         nargs;
  2322. {
  2323. #ifdef UNIMPLEMENTED
  2324.     switch (nargs) {
  2325.     case 2:
  2326.     case 1:
  2327.     error("%s: argcount mismatch\n");
  2328.     break;
  2329.     default:
  2330.     break;
  2331.     }
  2332. #endif
  2333.  
  2334.     return unimplemented(ex, ip);
  2335. }
  2336.  
  2337. /*-
  2338.  * POKEW seg off byte [byte] ...
  2339.  * change 16-bit memory given 8088 seg:off address (yeah, right!)
  2340.  */
  2341. int
  2342. f_pokew(ex, ip, nargs)
  2343.     ExecStruct *ex;
  2344.     int         ip;
  2345.     int         nargs;
  2346. {
  2347. #ifdef UNIMPLEMENTED
  2348.     switch (nargs) {
  2349.     case 2:
  2350.     case 1:
  2351.     error("%s: argcount mismatch\n");
  2352.     break;
  2353.     default:
  2354.     break;
  2355.     }
  2356. #endif
  2357.  
  2358.     return unimplemented(ex, ip);
  2359. }
  2360.  
  2361. /*-
  2362.  * POP label
  2363.  * leave a subroutine and branch on return.
  2364.  */
  2365. int
  2366. f_pop(ex, ip, nargs)
  2367.     ExecStruct *ex;
  2368.     int         ip;
  2369.     int         nargs;
  2370. {
  2371. #ifdef UNIMPLEMENTED
  2372.     switch (nargs) {
  2373.     case 1:
  2374.     break;
  2375.     default:
  2376.     error("%s: argcount mismatch\n");
  2377.     break;
  2378.     }
  2379. #endif
  2380.  
  2381.     return unimplemented(ex, ip);
  2382. }
  2383.  
  2384. /*-
  2385.  * POSITION buffer x y [R]
  2386.  * alter picture placement on the screen.
  2387.  */
  2388. int
  2389. f_position(ex, ip, nargs)
  2390.     ExecStruct *ex;
  2391.     int         ip;
  2392.     int         nargs;
  2393. {
  2394.     int         buf = intarg(ex, ip);
  2395.     int         x = intarg(ex, ip + 1);
  2396.     int         y = intarg(ex, ip + 2);
  2397.     int         rel = 0;
  2398.  
  2399.     switch (nargs) {
  2400.     case 4:
  2401.     buf = intarg(ex, ip);
  2402.     picreg[buf]->xoff += intarg(ex, ip + 1);
  2403.     picreg[buf]->yoff += intarg(ex, ip + 2);
  2404.     break;
  2405.     case 3:
  2406.     buf = intarg(ex, ip);
  2407.     picreg[buf]->xoff = intarg(ex, ip + 1);
  2408.     picreg[buf]->yoff = intarg(ex, ip + 2);
  2409.     break;
  2410.     default:
  2411.     error("%s: argcount mismatch\n");
  2412.     break;
  2413.     }
  2414.  
  2415.     return CONT;
  2416. }
  2417.  
  2418. /*-
  2419.  * PSAVE name [buffer]
  2420.  * save picture buffer to disk.
  2421.  */
  2422. int
  2423. f_psave(ex, ip, nargs)
  2424.     ExecStruct *ex;
  2425.     int         ip;
  2426.     int         nargs;
  2427. {
  2428. #ifdef UNIMPLEMENTED
  2429.     switch (nargs) {
  2430.     case 2:
  2431.     case 1:
  2432.     break;
  2433.     default:
  2434.     error("%s: argcount mismatch\n");
  2435.     break;
  2436.     }
  2437. #endif
  2438.  
  2439.     return unimplemented(ex, ip);
  2440. }
  2441.  
  2442. /*-
  2443.  * PSETBUF [buffer]
  2444.  * draw to picture buffer instead of screen.
  2445.  */
  2446. int
  2447. f_psetbuf(ex, ip, nargs)
  2448.     ExecStruct *ex;
  2449.     int         ip;
  2450.     int         nargs;
  2451. {
  2452. #ifdef UNIMPLEMENTED
  2453.     switch (nargs) {
  2454.     case 1:
  2455.     case 0:
  2456.     break;
  2457.     default:
  2458.     error("%s: argcount mismatch\n");
  2459.     break;
  2460.     }
  2461. #endif
  2462.  
  2463.     return unimplemented(ex, ip);
  2464. }
  2465.  
  2466. /*-
  2467.  * PUTDFF [buffer] [delay] [start] [end] [x y]
  2468.  * play a differential animation file.
  2469.  */
  2470. int
  2471. f_putdff(ex, ip, nargs)
  2472.     ExecStruct *ex;
  2473.     int         ip;
  2474.     int         nargs;
  2475. {
  2476. #ifdef UNIMPLEMENTED
  2477.     switch (nargs) {
  2478.     case 5:
  2479.     case 4:
  2480.     case 3:
  2481.     case 2:
  2482.     case 1:
  2483.     case 0:
  2484.     break;
  2485.     default:
  2486.     error("%s: argcount mismatch\n");
  2487.     break;
  2488.     }
  2489. #endif
  2490.  
  2491.     return unimplemented(ex, ip);
  2492. }
  2493.  
  2494. /*-
  2495.  * PUTUP x y [buffer] [delay]
  2496.  * display a clipping
  2497.  */
  2498. int
  2499. f_putup(ex, ip, nargs)
  2500.     ExecStruct *ex;
  2501.     int         ip;
  2502.     int         nargs;
  2503. {
  2504.     int         x = (int) resolvewild(ex, ip, INTEGER);
  2505.     int         y = (int) resolvewild(ex, ip + 1, INTEGER);
  2506.     int         clip = (int) resolvewild(ex, ip + 2, INTEGER);
  2507.     ImageStruct *im = clipreg[clip];
  2508.     int         d = 1;
  2509.  
  2510.     switch (nargs) {
  2511.     case 4:
  2512.     d = intarg(ex, ip + 3);
  2513.     case 3:
  2514.     clip = (int) resolvewild(ex, ip + 2, INTEGER);
  2515. /*
  2516.     case 2:
  2517. */
  2518.     y = (int) resolvewild(ex, ip + 1, INTEGER);
  2519.     x = (int) resolvewild(ex, ip, INTEGER);
  2520.     break;
  2521.     default:
  2522.     error("%s: argcount mismatch\n");
  2523.     break;
  2524.     }
  2525.  
  2526.  
  2527.     x += im->xoff;
  2528.     y += im->yoff;
  2529.     XCopyArea(dsp, im->pix, win, gc, 0, 0, im->w, im->h, x, YFLIPIM(y, im));
  2530.     XSync(dsp, False);
  2531.     delay(d);
  2532.     return CONT;
  2533. }
  2534.  
  2535. /*-
  2536.  * RECT x1 y1 x2 y2
  2537.  * draw a filled rectangle;
  2538.  */
  2539. int
  2540. f_rect(ex, ip, nargs)
  2541.     ExecStruct *ex;
  2542.     int         ip;
  2543.     int         nargs;
  2544. {
  2545.     int         x1;
  2546.     int         y1;
  2547.     int         x2;
  2548.     int         y2;
  2549.  
  2550.     switch (nargs) {
  2551.     case 4:
  2552.     x1 = intarg(ex, ip);
  2553.     y1 = intarg(ex, ip + 1);
  2554.     x2 = intarg(ex, ip + 2);
  2555.     y2 = intarg(ex, ip + 3);
  2556.     break;
  2557.     default:
  2558.     error("%s: argcount mismatch\n");
  2559.     break;
  2560.     }
  2561.  
  2562.     XSetForeground(dsp, gc, currentcolor);
  2563.     XFillRectangle(dsp, win, gc, x1, YFLIP(y2), x2 - x1, y2 - y1);
  2564.     return CONT;
  2565. }
  2566.  
  2567. /*-
  2568.  * RESETGL
  2569.  * close a library
  2570.  */
  2571. int
  2572. f_resetgl(ex, ip, nargs)
  2573.     ExecStruct *ex;
  2574.     int         ip;
  2575.     int         nargs;
  2576. {
  2577. #ifdef UNIMPLEMENTED
  2578.     switch (nargs) {
  2579.     case 0:
  2580.     break;
  2581.     default:
  2582.     error("%s: argcount mismatch\n");
  2583.     break;
  2584.     }
  2585. #endif
  2586.  
  2587.     return unimplemented(ex, ip);
  2588. }
  2589.  
  2590. /*-
  2591.  * RESETSCR
  2592.  * reset normal screen size.
  2593.  */
  2594. int
  2595. f_resetscr(ex, ip, nargs)
  2596.     ExecStruct *ex;
  2597.     int         ip;
  2598.     int         nargs;
  2599. {
  2600. #ifdef UNIMPLEMENTED
  2601.     switch (nargs) {
  2602.     case 0:
  2603.     break;
  2604.     default:
  2605.     error("%s: argcount mismatch\n");
  2606.     break;
  2607.     }
  2608. #endif
  2609.  
  2610.     return unimplemented(ex, ip);
  2611. }
  2612.  
  2613. /*-
  2614.  * RETURN [val]
  2615.  * return from a subroutine.
  2616.  */
  2617. int
  2618. f_return(ex, ip, nargs)
  2619.     ExecStruct *ex;
  2620.     int         ip;
  2621.     int         nargs;
  2622. {
  2623.     switch (nargs) {
  2624.     case 1:
  2625.     case 0:
  2626.     break;
  2627.     default:
  2628.     error("%s: argcount mismatch\n");
  2629.     break;
  2630.     }
  2631.  
  2632.     if (--loopstackptr < 0)
  2633.     error("%s: ipstack underflow\n");
  2634.  
  2635.     return ipstack[loopstackptr];
  2636. }
  2637.  
  2638. /*-
  2639.  * REVPAGE
  2640.  * reverse viewing and drawing pages (for double buffering?)
  2641.  */
  2642. int
  2643. f_revpage(ex, ip, nargs)
  2644.     ExecStruct *ex;
  2645.     int         ip;
  2646.     int         nargs;
  2647. {
  2648. #ifdef UNIMPLEMENTED
  2649.     switch (nargs) {
  2650.     case 0:
  2651.     break;
  2652.     default:
  2653.     error("%s: argcount mismatch\n");
  2654.     break;
  2655.     }
  2656. #endif
  2657.  
  2658.     return unimplemented(ex, ip);
  2659. }
  2660.  
  2661. /*-
  2662.  * SEND device string
  2663.  * send a character string to a device (yeah, right!)
  2664.  */
  2665. int
  2666. f_send(ex, ip, nargs)
  2667.     ExecStruct *ex;
  2668.     int         ip;
  2669.     int         nargs;
  2670. {
  2671. #ifdef UNIMPLEMENTED
  2672.     switch (nargs) {
  2673.     case 2:
  2674.     break;
  2675.     default:
  2676.     error("%s: argcount mismatch\n");
  2677.     break;
  2678.     }
  2679. #endif
  2680.  
  2681.     return unimplemented(ex, ip);
  2682. }
  2683.  
  2684. /*-
  2685.  * SET function|feature|var value
  2686.  * alter system characteristics or alter text features or defines variables...
  2687.  */
  2688. int
  2689. f_set(ex, ip, nargs)
  2690.     ExecStruct *ex;
  2691.     int         ip;
  2692.     int         nargs;
  2693. {
  2694. #ifdef UNIMPLEMENTED
  2695.     switch (nargs) {
  2696.     case 2:
  2697.     break;
  2698.     default:
  2699.     error("%s: argcount mismatch\n");
  2700.     break;
  2701.     }
  2702. #endif
  2703.  
  2704.     return unimplemented(ex, ip);
  2705. }
  2706.  
  2707. /*-
  2708.  * SETCOLOR val0 val1 val2 ... val16
  2709.  * define palette in EGA mode
  2710.  */
  2711. int
  2712. f_setcolor(ex, ip, nargs)
  2713.     ExecStruct *ex;
  2714.     int         ip;
  2715.     int         nargs;
  2716. {
  2717.     int         i;
  2718.     u_long      pmasks;
  2719.     u_long      pixels[16];
  2720.     ImageStruct *im = picreg[0];
  2721.  
  2722.     switch (nargs) {
  2723.     case 16:
  2724.     break;
  2725.     default:
  2726.     error("%s: not 16 args to setcolor\n");
  2727.     break;
  2728.     }
  2729.  
  2730.     im->cmaplen = nargs;
  2731.  
  2732.     if (!im->cmap) {
  2733.     im->cmap = XCreateColormap(dsp, win, vis, AllocNone);
  2734.     XAllocColorCells(dsp, im->cmap, True, &pmasks, 0, pixels, im->cmaplen);
  2735.     }
  2736.     for (i = 0; i < im->cmaplen; i++) {
  2737.     int         pal = intarg(ex, ip + i);
  2738.     im->colors[i].pixel = i;
  2739.     im->colors[i].red = decodepal(pal, 0x20, 0x04) << 8;
  2740.     im->colors[i].green = decodepal(pal, 0x10, 0x02) << 8;
  2741.     im->colors[i].blue = decodepal(pal, 0x08, 0x01) << 8;
  2742.     im->colors[i].flags = DoRed | DoGreen | DoBlue;
  2743.     }
  2744.     XStoreColors(dsp, im->cmap, im->colors, im->cmaplen);
  2745.     installcmap(0);
  2746.     return CONT;
  2747. }
  2748.  
  2749. /*-
  2750.  * SETPAGE view draw
  2751.  * define viewing and drawing pages for double buffering.
  2752.  */
  2753. int
  2754. f_setpage(ex, ip, nargs)
  2755.     ExecStruct *ex;
  2756.     int         ip;
  2757.     int         nargs;
  2758. {
  2759. #ifdef UNIMPLEMENTED
  2760.     switch (nargs) {
  2761.     case 2:
  2762.     break;
  2763.     default:
  2764.     error("%s: argcount mismatch\n");
  2765.     break;
  2766.     }
  2767. #endif
  2768.  
  2769.     return unimplemented(ex, ip);
  2770. }
  2771.  
  2772. /*-
  2773.  * SETRGB start r g b [R] rand
  2774.  * change color in VGA mode (not sure what R or rand do...)
  2775.  */
  2776. int
  2777. f_setrgb(ex, ip, nargs)
  2778.     ExecStruct *ex;
  2779.     int         ip;
  2780.     int         nargs;
  2781. {
  2782.     int         start;
  2783.     int         r;
  2784.     int         g;
  2785.     int         b;
  2786.     XColor      c;
  2787.  
  2788.     switch (nargs) {
  2789.     case 6:
  2790.     case 5:
  2791.     case 4:
  2792.     start = intarg(ex, ip);
  2793.     r = intarg(ex, ip + 1);
  2794.     g = intarg(ex, ip + 2);
  2795.     b = intarg(ex, ip + 3);
  2796.     break;
  2797.     default:
  2798.     error("%s: argcount mismatch\n");
  2799.     break;
  2800.     }
  2801.  
  2802.     c.pixel = picreg[palettenum]->colors[start].pixel;
  2803.     c.red = r << 8;
  2804.     c.green = g << 8;
  2805.     c.blue = b << 8;
  2806.     c.flags = DoRed | DoGreen | DoBlue;
  2807.  
  2808.     XStoreColors(dsp, installedcmap, &c, 1);
  2809.  
  2810.     return CONT;
  2811. }
  2812.  
  2813. /*-
  2814.  * SETUPSCR buffer
  2815.  * create a virtual screen for panning.
  2816.  */
  2817. int
  2818. f_setupscr(ex, ip, nargs)
  2819.     ExecStruct *ex;
  2820.     int         ip;
  2821.     int         nargs;
  2822. {
  2823. #ifdef UNIMPLEMENTED
  2824.     switch (nargs) {
  2825.     case 1:
  2826.     break;
  2827.     default:
  2828.     error("%s: argcount mismatch\n");
  2829.     break;
  2830.     }
  2831. #endif
  2832.  
  2833.     return unimplemented(ex, ip);
  2834. }
  2835.  
  2836. /*-
  2837.  * SPLIT line [R]
  2838.  * divide an EGA screen into two independant areas.
  2839.  */
  2840. int
  2841. f_split(ex, ip, nargs)
  2842.     ExecStruct *ex;
  2843.     int         ip;
  2844.     int         nargs;
  2845. {
  2846. #ifdef UNIMPLEMENTED
  2847.     switch (nargs) {
  2848.     case 2:
  2849.     case 1:
  2850.     break;
  2851.     default:
  2852.     error("%s: argcount mismatch\n");
  2853.     break;
  2854.     }
  2855. #endif
  2856.  
  2857.     return unimplemented(ex, ip);
  2858. }
  2859.  
  2860. /*-
  2861.  * SPREAD [pal1] pal2 [steps]
  2862.  * cross-fade between two VGA palettes.
  2863.  */
  2864. int
  2865. f_spread(ex, ip, nargs)
  2866.     ExecStruct *ex;
  2867.     int         ip;
  2868.     int         nargs;
  2869. {
  2870.     int         r1;
  2871.     int         r2;
  2872.     ImageStruct *p1;
  2873.     ImageStruct *p2;
  2874.     int         n = 1;
  2875.     XColor      colors[256];
  2876.     int         i;
  2877.     int         j;
  2878.     Colormap    cmap;
  2879.     unsigned long pmasks;
  2880.     u_long      pixels[256];
  2881.     int         len;
  2882.  
  2883.     switch (nargs) {
  2884.     case 3:
  2885.     n = intarg(ex, ip + 2);
  2886.     case 2:
  2887.     r2 = intarg(ex, ip + 1);
  2888.     r1 = intarg(ex, ip);
  2889.     p2 = picreg[r2];
  2890.     p1 = picreg[r1];
  2891.     break;
  2892.     default:
  2893.     error("%s: argcount mismatch\n");
  2894.     break;
  2895.     }
  2896.  
  2897.     n = (n < 0) ? -n : n;
  2898.  
  2899.     len = p1->cmaplen;
  2900.  
  2901.     if (len != p2->cmaplen)
  2902.     error("%s: %d,%d spread length mismatch\n", len, p2->cmaplen);
  2903.  
  2904.     cmap = XCreateColormap(dsp, win, vis, AllocNone);
  2905.     XAllocColorCells(dsp, cmap, True, &pmasks, 0, pixels, len);
  2906.     for (i = 0; i < len; i++) {
  2907.     colors[i].pixel = pixels[i];
  2908.     colors[i].red = p1->colors[i].red;
  2909.     colors[i].green = p1->colors[i].green;
  2910.     colors[i].blue = p1->colors[i].blue;
  2911.     colors[i].flags = DoRed | DoGreen | DoBlue;
  2912.     }
  2913.     XStoreColors(dsp, cmap, p1->colors, p1->cmaplen);
  2914.     XSetWindowColormap(dsp, win, cmap);
  2915.  
  2916. #define lerp(a,b,step,nsteps) ((a)<(b)            \
  2917.     ? (a) + ((b) - (a)) * (step) / (nsteps)        \
  2918.     : (b) + ((a) - (b)) * (step) / (nsteps))
  2919.  
  2920.     for (j = 1; j <= n; j++) {
  2921.     for (i = 0; i < len; i++) {
  2922.         XColor     *c1 = &(p1->colors[i]);
  2923.         XColor     *c2 = &(p2->colors[i]);
  2924.         colors[i].red = lerp(c1->red, c2->red, j, n);
  2925.         colors[i].green = lerp(c1->green, c2->green, j, n);
  2926.         colors[i].red = lerp(c1->red, c2->red, j, n);
  2927.     }
  2928.     XStoreColors(dsp, cmap, colors, p1->cmaplen);
  2929.     XSync(dsp, False);
  2930.     }
  2931.     installcmap(r2);
  2932.     XFreeColormap(dsp, cmap);
  2933.     XSync(dsp, False);
  2934.     return -1;
  2935. }
  2936.  
  2937. void
  2938. displaystring(s, x, y)
  2939.     char       *s;
  2940.     int         x, y;
  2941. {
  2942.     int         i;
  2943.  
  2944.     for (i = 0; i < strlen(s); i++) {
  2945.     GlyphStruct *g = ¤tfont->glyphs[s[i]];
  2946.     if (g->pix) {
  2947.         XSetStipple(dsp, gc, g->pix);
  2948.         XSetTSOrigin(dsp, gc, x - g->lbearing, y);
  2949.         XFillRectangle(dsp, win, gc, x, y, g->width, currentfont->height);
  2950.         x += g->width + chargap;
  2951.     }
  2952.     }
  2953. }
  2954.  
  2955. /*-
  2956.  * TEXT [x y] string [delay]
  2957.  * print characters on the screen.
  2958.  */
  2959. int
  2960. f_text(ex, ip, nargs)
  2961.     ExecStruct *ex;
  2962.     int         ip;
  2963.     int         nargs;
  2964. {
  2965.     int         x;
  2966.     int         y;
  2967.     char        *s;
  2968.     int         d = 1;
  2969.     int         i;
  2970.  
  2971.  
  2972.     switch (nargs) {
  2973.     case 4:
  2974.     d = intarg(ex, ip + 3);
  2975.     case 3:
  2976.     s = strarg(ex, ip + 2);
  2977.     y = intarg(ex, ip + 1);
  2978.     x = intarg(ex, ip);
  2979.     break;
  2980.     default:
  2981.     error("%s: argcount mismatch\n");
  2982.     break;
  2983.     }
  2984.  
  2985.     if (!currentfont) {
  2986.     /* hack there should be a default font. */
  2987.     XSetForeground(dsp, gc, currentcolor);
  2988.     XSetBackground(dsp, gc, currentbgcolor);
  2989.     XDrawString(dsp, win, gc, x, YFLIP(y), s, strlen(s));
  2990.     goto text_exit;
  2991.     }
  2992.     currentfont->glyphs[' '].width = spacegap;
  2993.     y = YFLIP(y) - currentfont->height - 2;
  2994.     XSetFillStyle(dsp, gc, FillStippled);
  2995.     XSetForeground(dsp, gc, (fstyle > 2) ? currentbgcolor : currentcolor);
  2996.     switch (fstyle) {
  2997.     case 0:
  2998.     break;
  2999.     case 1:
  3000.     displaystring(s, x, y - 1);    /* bold up */
  3001.     break;
  3002.     case 2:
  3003.     displaystring(s, x + 1, y);    /* bold right */
  3004.     break;
  3005.     case 3:
  3006.     displaystring(s, x + 1, y - 1);    /* shadow up right */
  3007.     break;
  3008.     case 4:
  3009.     displaystring(s, x - 1, y - 1);    /* shadow up left */
  3010.     break;
  3011.     case 5:
  3012.     displaystring(s, x + 2, y - 2);    /* shadow up right 2 pixels */
  3013.     break;
  3014.     case 6:
  3015.     displaystring(s, x - 2, y - 2);    /* shadow up left 2 pixels */
  3016.     break;
  3017.     default:
  3018.     break;
  3019.     }
  3020.     XSetForeground(dsp, gc, currentcolor);
  3021.     displaystring(s, x, y);
  3022.     XSetFillStyle(dsp, gc, FillSolid);
  3023. text_exit:
  3024.     XSync(dsp, False);
  3025.     delay(d);
  3026.     return CONT;
  3027. }
  3028.  
  3029. /*-
  3030.  * TILE buffer [bleed]
  3031.  * fill screen with copies of the clipping.
  3032.  */
  3033. int
  3034. f_tile(ex, ip, nargs)
  3035.     ExecStruct *ex;
  3036.     int         ip;
  3037.     int         nargs;
  3038. {
  3039.     ImageStruct *im;
  3040.     int         x;
  3041.     int         y;
  3042.  
  3043.     switch (nargs) {
  3044.     case 2:
  3045.     case 1:
  3046.     im = clipreg[intarg(ex, ip)];
  3047.     break;
  3048.     default:
  3049.     error("%s: argcount mismatch\n");
  3050.     break;
  3051.     }
  3052.  
  3053.     for (y = 0; y <= picreg[0]->h - im->h; y += im->h)
  3054.     for (x = 0; x <= picreg[0]->w - im->w; x += im->w)
  3055.         XCopyArea(dsp, im->pix, win, gc, 0, 0, im->w, im->h, x, y);
  3056.     delay(10);
  3057.     return CONT;
  3058. }
  3059.  
  3060. /*-
  3061.  * TIMER
  3062.  * set the system clock for execution timing (huh?)
  3063.  */
  3064. int
  3065. f_timer(ex, ip, nargs)
  3066.     ExecStruct *ex;
  3067.     int         ip;
  3068.     int         nargs;
  3069. {
  3070. #ifdef UNIMPLEMENTED
  3071.     switch (nargs) {
  3072.     case 0:
  3073.     break;
  3074.     default:
  3075.     error("%s: argcount mismatch\n");
  3076.     break;
  3077.     }
  3078. #endif
  3079.  
  3080.     return unimplemented(ex, ip);
  3081. }
  3082.  
  3083. /*-
  3084.  * TRAN set [color]
  3085.  * set = "on"|"off", make color be transparent in clippings.
  3086.  */
  3087. int
  3088. f_tran(ex, ip, nargs)
  3089.     ExecStruct *ex;
  3090.     int         ip;
  3091.     int         nargs;
  3092. {
  3093.     int         tranval;
  3094.  
  3095.     switch (nargs) {
  3096.     case 2:
  3097.     case 1:
  3098.     tranval = intarg(ex, ip);
  3099.     break;
  3100.     default:
  3101.     error("%s: argcount mismatch\n");
  3102.     break;
  3103.     }
  3104.  
  3105.     return -1;
  3106. }
  3107.  
  3108. /*-
  3109.  * VIDEO mode [x y] [init]
  3110.  * set the display mode (not sure what x and y and init are for)
  3111.  */
  3112. int
  3113. f_video(ex, ip, nargs)
  3114.     ExecStruct *ex;
  3115.     int         ip;
  3116.     int         nargs;
  3117. {
  3118.     char        *s;
  3119.     char        c;
  3120.  
  3121.     switch (nargs) {
  3122.     case 4:
  3123.     case 3:
  3124.     case 1:
  3125.     s = strarg(ex, ip);
  3126.     c = s[0];
  3127.     break;
  3128.     default:
  3129.     error("%s: argcount mismatch\n");
  3130.     break;
  3131.     }
  3132.  
  3133.     setvideomode(c);
  3134.     return CONT;
  3135. }
  3136.  
  3137.  
  3138. int
  3139. KeyEvent(ev)
  3140.     XKeyEvent  *ev;
  3141. {
  3142.     KeySym      keysym;
  3143.     XComposeStatus status;
  3144.     char        string[2];
  3145.     int         len = XLookupString(ev, string, 1, &keysym, &status);
  3146.     keypressed = string[0];
  3147.     if (keypressed == 27)    /* Esc Key */
  3148.     return -1;
  3149.     return len;
  3150. }
  3151.  
  3152.  
  3153. /*-
  3154.  * WAITKEY [time] [label]
  3155.  * wait for a keystroke or a given time, and jump to label on timeout.
  3156.  */
  3157. int
  3158. f_waitkey(ex, ip, nargs)
  3159.     ExecStruct *ex;
  3160.     int         ip;
  3161.     int         nargs;
  3162. {
  3163.     int         endtime;
  3164.     int         retaddr = CONT;
  3165.  
  3166.     switch (nargs) {
  3167.     case 2: 
  3168.     retaddr = intarg(ex, ip + 1);
  3169.     case 1: 
  3170.     endtime = hundredthsofseconds() + intarg(ex, ip); 
  3171.     break; 
  3172.     case 0: 
  3173.     break; 
  3174.     default: 
  3175.     error("%s: argcount mismatch\n"); 
  3176.     break; 
  3177.     } 
  3178.  
  3179.     while (1) {
  3180.     if (nargs == 0 || XPending(dsp)) {
  3181.         XEvent      ev;
  3182.         int         key;
  3183.         XNextEvent(dsp, &ev);
  3184.         switch (ev.type) {
  3185.         case KeyPress:
  3186.         key = KeyEvent(&ev);
  3187.         if (key > 0)
  3188.             return CONT;
  3189.         if (key == -1)
  3190.             return ESCAPE;
  3191.         case ClientMessage:
  3192.         ExitEvent(&ev);
  3193.         break;
  3194.         default:
  3195.         break;
  3196.         }
  3197.     } else {
  3198.         usleep(10000);    /* sleep for 1/100th of a second */
  3199.         if (hundredthsofseconds() > endtime)
  3200.         return retaddr;
  3201.     }
  3202.     }
  3203. }
  3204.  
  3205.  
  3206. /*-
  3207.  * WHEN key [command]
  3208.  * set up an automatic response for given keystroke.
  3209.  */
  3210. int
  3211. f_when(ex, ip, nargs)
  3212.     ExecStruct *ex;
  3213.     int         ip;
  3214.     int         nargs;
  3215. {
  3216. #ifdef UNIMPLEMENTED
  3217.     switch (nargs) { 
  3218.     case 2: 
  3219.     case 1: 
  3220.     break;
  3221.     default: 
  3222.     error("%s: argcount mismatch\n"); 
  3223.     break;
  3224.     }
  3225. #endif
  3226.  
  3227.     return unimplemented(ex, ip);
  3228. }
  3229.  
  3230. /*-
  3231.  * WINDOW x1 y1 x2 y2 [R]
  3232.  * limit screen changes to given area.
  3233.  */
  3234. int
  3235. f_window(ex, ip, nargs)
  3236.     ExecStruct *ex;
  3237.     int         ip;
  3238.     int         nargs;
  3239. {
  3240.     int         offset_x;
  3241.     int         offset_y;
  3242.  
  3243.     switch (nargs) {
  3244.     case 5: /* relative */
  3245.     {
  3246.     offset_x = window.x;
  3247.     offset_y = YFLIP(window.y) - window.height;
  3248.     window.x = intarg(ex, ip);
  3249.     window.y = intarg(ex, ip + 1);
  3250.     window.width  = intarg(ex, ip + 2) - window.x + 1;
  3251.     window.height = intarg(ex, ip + 3) - window.y + 1;
  3252.     window.x = window.x + offset_x;
  3253.     window.y = YFLIP(intarg(ex, ip + 3) + offset_y);
  3254.     break;
  3255.     }
  3256.     case 4: /* absolute */
  3257.     window.x = intarg(ex, ip);
  3258.     window.y = intarg(ex, ip + 1);
  3259.     window.width  = intarg(ex, ip + 2) - window.x + 1;
  3260.     window.height = intarg(ex, ip + 3) - window.y + 1;
  3261.     window.y = YFLIP(intarg(ex, ip + 3));
  3262.     break;
  3263.     case 0: /* restore default */
  3264.     window.x = 0;
  3265.     window.y = 0;
  3266.     window.width  = picreg[0]->w;
  3267.     window.height = picreg[0]->h;
  3268.     break;
  3269.     default:
  3270.     error("%s: argcount mismatch\n");
  3271.     }
  3272.  
  3273.     return CONT;
  3274. }
  3275.  
  3276. int         (*funcs[]) () = {
  3277.     0,
  3278.     f_box,
  3279.     f_break,
  3280.     f_call,
  3281.     f_cfade,
  3282.     f_cfree,
  3283.     f_cgetbuf,
  3284.     f_chgcolor,
  3285.     f_circle,
  3286.     f_clearscr,
  3287.     f_cload,
  3288.     f_closegl,
  3289.     f_color,
  3290.     f_cycle,
  3291.     f_data,
  3292.     f_databegin,
  3293.     f_dataend,
  3294.     f_dataskip,
  3295.     f_dfree,
  3296.     f_dload,
  3297.     f_edge,
  3298.     f_else,
  3299.     f_endlfloat,
  3300.     f_endif,
  3301.     f_exec,
  3302.     f_exit,
  3303.     f_ffree,
  3304.     f_fgaps,
  3305.     f_fload,
  3306.     f_float,
  3307.     f_fly,
  3308.     f_font,
  3309.     f_fstyle,
  3310.     f_getcolor,
  3311.     f_getkey,
  3312.     f_gosub,
  3313.     f_goto,
  3314.     f_if,
  3315.     f_ifkey,
  3316.     f_ifmem,
  3317.     f_ifmouse,
  3318.     f_ifvideo,
  3319.     f_int,
  3320.     f_line,
  3321.     f_link,
  3322.     f_local,
  3323.     f_loop,
  3324.     f_mark,
  3325.     f_merge,
  3326.     f_mode,
  3327.     f_mouse,
  3328.     f_move,
  3329.     f_noise,
  3330.     f_note,
  3331.     f_offset,
  3332.     f_opengl,
  3333.     f_out,
  3334.     f_palette,
  3335.     f_pan,
  3336.     f_pfade,
  3337.     f_pfree,
  3338.     f_pgetbuf,
  3339.     f_pload,
  3340.     f_pnewbuf,
  3341.     f_point,
  3342.     f_poke,
  3343.     f_pokel,
  3344.     f_pokew,
  3345.     f_pop,
  3346.     f_position,
  3347.     f_psave,
  3348.     f_psetbuf,
  3349.     f_putdff,
  3350.     f_putup,
  3351.     f_rect,
  3352.     f_resetgl,
  3353.     f_resetscr,
  3354.     f_return,
  3355.     f_revpage,
  3356.     f_send,
  3357.     f_set,
  3358.     f_setcolor,
  3359.     f_setpage,
  3360.     f_setrgb,
  3361.     f_setupscr,
  3362.     f_split,
  3363.     f_spread,
  3364.     f_text,
  3365.     f_tile,
  3366.     f_timer,
  3367.     f_tran,
  3368.     f_video,
  3369.     f_waitkey,
  3370.     f_when,
  3371.     f_window,
  3372.     f_pfade,
  3373.     f_waitkey
  3374. };
  3375.  
  3376.  
  3377. void
  3378. printexec(ex, nargs)
  3379.     ExecStruct *ex;
  3380.     int         nargs;
  3381. {
  3382.     int         i;
  3383.  
  3384.     printf("executing: %s", tokens[ex->Code[ex->ip].token]);
  3385.     for (i = 1; i <= nargs; i++)
  3386.     switch (ex->Code[ex->ip + i].token) {
  3387.     case STRING:
  3388.         printf(" %s", ex->Code[ex->ip + i].val.s);
  3389.         break;
  3390.     case INTEGER:
  3391.         printf(" %d", ex->Code[ex->ip + i].val.i);
  3392.         break;
  3393.     case IMAGE:
  3394.         printf(" %s", ex->Code[ex->ip + i].val.image->name);
  3395.         break;
  3396.     case FONTTYPE:
  3397.         if (ex->Code[ex->ip + i].val.font)
  3398.         printf(" %s", ex->Code[ex->ip + i].val.font->name);
  3399.         else
  3400.         printf(" (nil)");
  3401.         break;
  3402.     case EXECTYPE:
  3403.         printf(" %s", ex->Code[ex->ip + i].val.exec->name);
  3404.         break;
  3405.     case WILDTYPE:
  3406.         printf(" @");
  3407.         break;
  3408.     default:
  3409.         error("%s: bogus token type.\n");
  3410.     }
  3411.     printf("\n");
  3412. }
  3413.  
  3414.  
  3415. void
  3416. execfile(ex, ip)
  3417.     ExecStruct *ex;
  3418.     int         ip;
  3419. {
  3420.     ex->ip = ip;
  3421.     ex->currentdataptr = -1;
  3422.     ex->currentdataend = -1;
  3423.     while (1) {
  3424.     int         nargs = ex->Code[ex->ip].val.i;
  3425.     int         i = ex->Code[ex->ip].token;
  3426.     int         retval;
  3427.  
  3428.     if (i > NTOKENS) {
  3429.         printf("skipping bogus token %s\n", ex->Code[ex->ip].val.s);
  3430.         ex->ip++;
  3431.         continue;
  3432.     }
  3433.     if (verbose)
  3434.         printexec(ex, nargs);
  3435.     switch (retval = funcs[i] (ex, ex->ip + 1, nargs)) {
  3436.     case DONE:
  3437.         return;
  3438.     case ESCAPE:
  3439.         exit(0);
  3440.     case CONT:
  3441.         if ((ex->ip += (nargs + 1)) >= ex->numcodes)
  3442.         return;
  3443.         break;
  3444.     default:
  3445.         ex->ip = retval;
  3446.     }
  3447.     exitcheck();
  3448.     }
  3449. }
  3450.